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APPLICATION INFORMATION FOR 25 kHz POWER 



APPENDIX A 



+ h + 



This appendix provides application information for the 25 kHz sine-wave 
output of the HP 12035A Power Supply and the optional HP 12158A 25-kHz Power 
Module that may be added to the 0950-0873 or 0950-0893 power supply in the 
2156A or 2196A/B computers. 
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25 kHz Application 



Introduction 

HP 1000 L-Series Computers and Sys- 
tems utilize the Model 12035A Power 
Module as their power supply, whereas in 
the A-Series the 12035A Power Module is 
used only with the 1 2030A Card Cage. An 
important design factor in the 12035A 
Power Module and in the 12158A 25 kHz 
Power Module option of 21 56A or 21 96A/B 
Computers is the inversion of 50/60 Hz ac 
power to a regulated 25 kHz sine wave 
that is stepped down and rectified to 
provide the outputs shown in Figure 1. A 
bonus of this design for the OEM or end 
user with unique power requirements that 
are not met by the standard dc voltages is 
the availability of 25 kHz ac power at the 
backplane of A/L-Series card cages, 
computers, and systems and at a con- 
nector on the front of the power module. At 
the 25 kHz frequency, power transformers 
and filtering components (capacitors and 
chokes) can be small and lightweight 
enough to make possible on-interface 
power supplies. 



Uses of 25 kHz backplane 
power 

25 kHz backplane power can be used 
when designing special interfaces on the 
12010A Breadboard Interface to provide 
ac input power for compact, lightweight 
on-interface dc power supplies to meet 
any of the following requirements: 

1. Provision of dc voltages in addition to 
those supplied by the 12035A Power 
Module. 

2. Provision of dc supplies whose analog 
grounds are isolated from the com- 
puter ground. 

3. Provision of multichannel isolated 
power to digital communication circuits 
to eliminate ground noise paths and 
maximize the reliability of serial data 
transfers. 

4. Low voltage, high current power for 
supplying large arrays of integrated 
circuits 



FEEDBACK 



Use of 25 kHz power from 
the power module front 
connector 

25 kHz power is conveniently available 
from the power module front connector for 
powering circuits that are separate from 
the computer or system backplane. Uses 
might include signal conditioning powerto 
external sensors (such as strain gauges) 
or power for logic circuits external to the 
computer backplane. Use of the power 
module's 25 kHz ac output can eliminate 
the need for separate, 50/60 Hz power 
supplies where external power require- 
ments are small, minimizing costs, space 
requirements, and weight 
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Figure 1. 12035A Power Module, Simplified Diagram 
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25 kHz Application 



25 kHz ac power specifica- 
tions of the 12035A Power 
Module 

39V rms split-phase backplane output: The 

power module's output to the backplane 
of A/L-Series card cages, computers, and 
systems includes 39V rms split phase 
across pins 47/48 and 49/50 of interface 
card printed circuit plug P2 with a center 
tap connected to common (pins 2, 15, 17, 
1 9, 21 , 27, 29, and 34 of P2), as shown in 
Figure 1 . With respect to common, the 
voltages at pins 47/48 and 49/50 of plug 
P2 are 19.5V rms. This backplane output 
is conveniently available for powering 
small on-interface dc power supplies. 

27V rms front connector output: A sepa- 
rate transformer winding provides a 27V 
rms single-phase output to a connector on 
the front of the power module. This output 
can be used for signal conditioning power 
to external sensors or for other small ex- 
ternal power supply uses. A Switchcraft 
type A3M plug is the required mating con- 
nector for this output. 

Regulation: Within ±8% of nominal. 

Available power: 25 kHz power available 
from either output or total available from 
both outputs depends on usage of dc cur- 
rent from the 12035A Power Module, as 
follows: 

AC Power +5Vdc +12Vdc -12Vdc 

70 Watts 25A 4.0A 2.0A 



NOTE: Alternate ac power and dc current 
output combinations are possible within 
the 250W to 31 9W maximum total power 
ojtput, provided that no more than the 
highest power or current listed above is 
drawn from any output. However, because 
of complex thermal interactions within the 
power module you cannot rely upon di- 
rectly trading all of the power not used in 
one or more dc outputs for additional ac 
power. 



On-interface dc power 
supplies 

Non-isolated, series-regulated dc 
power supply (Use 1 from page 1) 

Purpose and basic design. Where addi- 
tional + 7.5V to +12V dc at up to 1 amp is 
needed for interface circuits, the 25 kHz 
backplane power can be used to provide 
a non-isolated positive regulated power 
supply as shown in Figure 2. The 19.5V 
rms potential on either side of common 
provides at least + 1 4.5V dc after rectifica- 
tion and filtering. An adjustable, off-the- 
shelf, three-terminal integrated circuit vol- 
tage regulator, National Semiconductor 
Series LM1 1 7 or equivalent, can be used 
to set the regulated output voltage within 
the range of + 7.5V to + 12Vdc.The regu- 
lated voltage output is dependent upon 
the values of resistors R2 and R3. A nega- 
tive output voltage supply similar to the 



positive supply shown in Figure 2 can be 
made by reversing polarities of the re- 
ctifiers and using a negative adjustable 
regulator, National Semiconductor Series 
LM137 or equivalent. 

Preserving purity of the 25 kHz ac input 
sine wave. To maintain the purity of the 
input 25 kHz sine wave, near 180 degree 
conduction should be provided in the rec- 
tification process, which necessitates the 
use of a choke input filter. Thjs filter also 
limits the surge current at turn-on if the 
requirements for Lmin are met. The equa- 
tion for Lmin with a 25% safety factor is 
given by. 

L min (in henries) = (K/fs) x R L 

Where: fs = 25 kHz 

R1 = Minimum load resistance 
K = 0.06 for full wave rectifiers 

This implies the need for a minimum load. 
If the circuits to be powered allow the load 
current to go to zero, a preloading bleeder 
resistor is required. The final value of Lmin 
would then be determined by the allowed 
power loss (dissipation) of the preloading 
resistor. When the Lmin requirement is 
met, the surge current will be acceptable 
and sine wave distortion will be minimized. 

Selection of rectifiers. Rectifiers used with 
25 kHz input power must be of the fast 
recovery type with less than 200 
nanosecond recovery time. Allowing for 
possible transients from leakage induc- 
tances, overshoot, and MTBF derating, 
the rectifiers should also have 100V peak 
inverse voltage rating 
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NOTES: ill is a National Semiconductor type LM117 Series or equivalent 
adjustable regulator 

Values of C4 R2. and R3 should be selected in accordance with 
instructions in U1 manufacturers data sheet. 



Figure 2. On-interface regulated power supply with up to 1A output using 25 kHz ac input from L- Series backplane 
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Keeping noise off the 25 kHz ac input lines. 

During rectifier recovery, the removal of 
stored charge in the rectifiers will appear 
as spikes on the rectifier inputs. These 
spikes should be suppressed to keep 
them from travelling along the 25 kHz ac 
input lines in the backplane. Small 0.001 
to 0.1 microfarad ceramic capacitors (C1 
and C2 in Figure 2) will usually damp out 
these spikes, with the required capacitor 
value dependent upon the magnitude of 
stored charge being removed. If under- 
damped ringing is present because of 
leakage inductance, small ferrite beads, 
tubes, or toroids can be threaded onto the 
rectifier leads to provide a "lossy" induc- 
tive reactance at high frequencies to ef- 
fectively dissipate undesirable recovery 
currents. 

Input filtering. The value of C3 is deter- 
mined by the amount of ripple voltage that 
can be tolerated at the input of integrated 
circuit regulator U1 . The Vin-Vout different- 
ial of 3 volts must be met for any chosen 
output voltage as noted in Reference 2. 
The Ripple factor r for a full-wave rectifier 
circuit is given by: 

r = (0.83/(L1 x CI) x 5.76 x 10 '• 
The case size and construction of 
capacitor C3 must be capable of conduct- 
ing the ripple current without excessive 
dissipation. Ripple current will be at 2 fs 
and will be sinusoidal when Lmin require- 
ments are met The rms ripple current in 
amps is given by: 

i„ = VRMS((4t7 x ts x L,) 

Where: VRMS is the input voltage phase 

to common 

fs = 25 kHz 

L, >= L mm 
The minimum inductive value of L1 must 
be present with the dc current flowing 
through it over the complete load current 
range This requires an inductor with gaps 
in the magnetic circuit, either fixed or dis- 
tributed, such as in powdered iron cores, 
or solenoid-wound inductors over ferrite 
rods (available from Reference 9). 

Regulator dissipation. Since the regulator 
is a linear series pass type, the difference 
between the voltage developed across C3 
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at the regulator input and the desired out- 
put at the load current must be dissipated 
in the regulator. This dissipation is given 
by: 

Pdiss= (V in -V out )x(l L + V in l Q ) 

Where: I, = the quiescent current of 
the regulator. 
Case to junction thermal resistances are 
given in the regulator manufacturer's data 
sheet. The dominant thermal resistance 
will be the case to air stream, which is 
usually available on heat sink manufac- 
turer's data as a function of air velocity. 
You can assume a minumum 200 ft/min 
flow across the board with a maximum air 
temperature on the exit side of 66 °C under 
worst case conditions. For low power on- 
card dc supplies, the copper foil on the 
printed circuit board can be used as a 
heat sink. However, the suitability of this 
arrangement should be checked carefully 
with thermocouples to confirm that the 
temperature rise of the regulator is not 
excessive. 

Isolated or "floating" dc power 
supplied (Uses 2 and 3, page 1) 

A major advantage of the 25 kHz 
backplane power is its ease of use for 
isolated power supplies that can have 
separate analog grounds, thereby reduc- 
ing the effects of ground-conducted noise 
as discussed in References 3 and 4. Isola- 
tion is provided by an on-interface trans- 
former, as shown in Figure 3. The use of 
25 kHz ac input makes it possible for the 
isolation transformer to be very small and 
inexpensive. Toroidal printed circuit 
mounting types or "P" core (Reference 7) 
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CONNECTOR 
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shielded printed circuit mounting types 
generally offer the best price-performance 
combination. However, small E-E types 
can also be used at lower cost with some 
sacrifice in electromagnetic and electros- 
tatic shielding. High permeability ferrite 
materials having low losses at 25 kHz are 
readily available with matching bobbins 
and mounting hardware from References 
6 through 10. 

Primary-to-secondary isolation of both dc 
and high frequency can be somewhat 
complex. References 3 and 4 describe 
single and double shielded transformers. 
It is possible to achieve high isolation with 
small ferrite cores and proper inter- 
winding shield design. Simple copper foil 
inter-winding shields are relatively inex- 
pensive and are effective in decreasing 
primary-to-secondary electrostatic coupl- 
ing at frequencies from 100 Hz to about 
100 kHz. For higher frequencies, "link" 
coupling of two cores or other techniques 
may be required (Reference 3, p 117). 

The ground isolation provided by the 
multi-channel +10V power supply circuits 
depicted in Figure 3 eliminates errors 
caused by ground-induced noise. In 
analog voltage measurement applica- 
tions, power supply isolation minimizes 
common mode noise, improving mea- 
surement accuracy. With respect to digital 
data transmission uses, power supply iso- 
lation allows data terminals to operate at 
greater distances from the local system 
with fewer data errors than would other- 
wise be possible. When the power supply 
is not isolated, noise in the 50/60 Hz mains 
power distribution and grounding system 
supplying the computer can cause current 
noise loops that degrade signal integrity 
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Figure 3. Multiple, isolated, on-interface +10VI30 mA power supplies 
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High-efficiency, on-interface 
low-voltage, high current power 
supply (Use 4, page 1) 

Heat dissipation is often the main factor 
limiting the current output of on-interface 
power supplies. This is particularly true for 
lower voltage, high current supplies, such 
as required for many digital integrated cir- 
cuit families. For example, at the +5V 
used for TTL families of integrated logic 
circuits, even the dissipation of the re- 
ctifiers can be a significant 1 4% to 20% of 
total power, because of the inherent 0.7V 
to 1.0V forward drop across silicon re- 
ctifiers, and heat sinking may be required 
at 3-5 Amp currents. Use of hot carrier or 
Schottky junction rectifiers, which have a 
lower forward drop presenting a power 
loss of only 4%-5% of the total power out- 
put, have peak inverse voltage ratings that 
are suitable for lower voltage power 
supplies and may not require heat sinks 
because of their lower power dissipation. 

At low output voltages, the 2-3 volt drop 
required across most three-terminal ad- 
justable integrated circuit series reg- 
ulators for proper regulation can account 
for 40%-60% of the total power ottput, 
which is lost in the regulator and must be 
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dissipated. Regulator heat sinking be- 
comes difficult for even 1-3 Amp current 
outputs and impossible for the higher cur- 
rent levels that larger three-terminal reg- 
ulators are able to pass. Because of these 
efficiency and dissipation problems, a 
more efficient circuit approach has 
evolved, as shown in Figure 4. 

The circuit of Figure 4 uses a driven 
switching regulator for more efficient de- 
livery of low voltage, high current output. 
This circuit regulates on the basis of the 
conduction angle of the pulsating re- 
ctified, unfiltered dc from the on-interface 
Schottky rectifiers. The result is efficien- 
cies of 70%-85% with 1 Amp to 5 Amp 
loads. The duty cycle control is uniform 
over the half sine wave and the instan- 
taneous energy is low at the switching 
transitions, which minimizes waveform dis- 
tortion and RFI emission. Because the 
regulator operates on the incoming fre- 
quency as a driven circuit, it also elimi- 
nates the generation of other frequencies 
that would be a problem if an on-interface 
switching regulator integrated circuit were 
used. The circuit of Figure 4 eliminates 
sum and difference noise frequencies and 
a host of non-repetitive noise problems, 
while optimizing efficiency. 



SCHOTTKY RECTIFIERS 



External supplies using 
25 kHz power from the 
power module front 
connector 

Power supplies for logic circuits or sensor 
signal conditioning circuits external to the 
computer or system card cage can also 
use 25 kHz power as the primary ac input. 
In fact, ac input power to the logic circuits 
power supply for the flexible disc in HP 
1000 L-Series Systems is taken from the 
front 25 kHz connector of the 12035A 
Power Module. Similar use can be made 
by the OEM or end user in systems 
assembled from HP 1000 A/L-Series 
components. It is important to note, 
however, that physical clearance for the 
mating plug is not sufficient in the 2103L 
(box) Computer to permit use of 25 kHz 
power from the power module front 
connector in that configuration. 

The design of 25 kHz-driven external 
power supplies is essentially the same as 
for on-interface power supplies, as previ- 
ously discussed. However, less-stringent 
space constraints can be expected to 
simplify layout and make heat dissipation 
easier in the external supplies, so less de- 
sign effort should be required to achieve 
the desired result. 



(-5V/5A 




0.001 m f 



COMMON 



CR1. CR2. and CR3 are International Rectifier 80SQ10 5A Schottky rectifiers. 
•Motorola MCU03A or equivalent 2 5V low TC reference source. 
'National Semiconductor LM 311 or equivalent Comparator 
LI is a Dale type IH5 or equivalent solenoid choke coil. 



Figure 4. High efficiency on-interface, low voltage, high current 25 kHz driven switching power supply 
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This appendix contains the logic equations used in implementing the 
programmable logic devices. Refer to Appendix D for a representative listing 
of instruction base-set microcode. 



B-1 



Processor Reference 



iV<* 



B.1 INSTRUCTION DECODE PAL (U1405) l£L t 

Instruction Decode PAL *** U1405 **» programmed HP P/N : 12101-80015 
Use DATA I/O personality card type 1427, socket adapter type 1428-2. 



v 



S' 



IR08 IR09 IR10 IR11 IR12 IR13 IR14 IR15 /SATEST GND 

/LVLO /MRGIFETCH /MRGREAD /UIGOE /EASIOE /MRGOE IR07 IR06 /PCMRG VCC 

" ' 2. 'v ' ^ / r / .* ; 7 v /**. 

/MRGOE = IR14*LVL0 + 

/IR14»IR13«LVL0 + 
/IR14»/IR13*IR12»LVL0 

/EASIOE = /IR15»/IR14«/IR13*/IR12*LVL0 + 

IR15«/IR14*/IR13*/IR12»IR10*LVL0 + 
IR15*/IR14«/IR13*/IR12*/IR1 1»/IR10*/IR09*LVL0 + 
IR1 5VIR1 4VIR1 3*/IR1 2*IR1 1VIR1 0»/IR09*LVL0 + 

IR15*/IR14*/IR13*/IR12*/IR11*/IR10*IR09*/IR08«/IR07*/IR06*LVL0 + 
IR15*/IR14*/IR13*/IR12*/IR11*/IR10«IR09*/IR08*/IR07*IR06«LVL0 

/UIGOE = IR15«/IR14«/IR13*/IR12»/IR11*/IR10»IR09*IR08*LVL0 + 
IR1 5»/IR1 4»/IR1 3*/IR1 2»IR1 1*/IR1 0«IR09*LVL0 

/MRGREAD = /SATEST*IR14*LVL0 + 

/SATEST«/IR14»/IR13*IR12*/IR1 1*LVL0 + 
/SATEST*/IR14«IR13»/IR12«/IR1 1*LVL0 + 
/SATEST«/IR14«IR13»IR12*LVL0 + 
/SATEST*IR15*/IR14«/IR13*IR12*IR11*LVL0 + 
/SATEST*IR15*/IR14»IR13*/IR12*IR11»LVL0 

/MRGIFETCH = /SATESTVIR1 5*/IR14*IR1 3*/IR12*IR1 1«LVL0 

/PCMRG = /IR15«/IR14»/IR13*IR12«IR11 + 
/IR15«/IR14»IR13»IR11 + 
/IR15*IR14«IR13»IR12 



B-2 



Processor Reference 



B.2 DESTINATION SPECIAL PAL (U507) ' <? ** - <LS" ?J /4-^^r 

Destination Special PAL *«« U507 *** programmed HP P/N : 12101-80016 
Use DATA I/O personality card type 1427, socket adapter type 1428-1. 

PL28 PL26 PL25 SPARE1 YOBUF ABREF IR03 IR1 1 SPARE2 GND 
PL19 PL23 PL29 ALUI3 B1 BO ALUI7 CT PL27 VCC 

BO = /PL29*PL25 + 

PL29»/PL28«/PL27*/PL26*/PL25*IR11 + 
PL29*/PL28*/PL27*/PL26«PL25*Y0BUF + 
PL29*/PL28*/PL27*PL26«/PL25*IR03 

B1 = /PL29»PL26 + 

PL29*/PL28*/PL27*PL26*/PL25 

ALUI3 = /PL29*PL19 + 

PL29*/PL28*/PL27«PL19 + 
PL29*/PL28*PL27*/PL26*/PL25*CT 

ALUI7 = /PL29*PL23 + 

PL29*/PL28*/PL26*/PL25*PL23 + 
PL29*/PL28»/PL26*PL25*ABREF + 
PL29*/PL28*PL26*/PL25»PL23 
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B.3 A/B ADDRESS SPECIAL PAL (U802) /^2- >tZs>- ZL1 ^ 

A/B Address Special PAL »** 1)802 »»* programmed HP P/N : 12101-80017 
Use DATA I/O personality card type 1427, socket adapter type 1428-1. 

Y11 Y12 Y10 Y13 Y14 Y09 Y08 Y07 Y03 GND 
Y00 Y06 Y01 Y02 ONES ZERO Y05 Y15 Y04 VCC 

ZERO = /Y15«/Y14*/Y13*/Y12«/Y11»/Y10*/Y09«/Y08» 
/Y07*/Y06»/Y05*/Y04»/Y03*/Y02*/Y01»/Y00 

ONES = Y15«Y14*Y13*Y12»Y1 1«Y10«Y09«Y08«Y07»Y06»Y05«Y04*Y03»Y02*Y01*Y00 
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B.4 INTERRUPT CONTROLLER NO. 1 PAL (U307) 



a <?c 



' C- >."'>- 



rG £ 



Interrupt Controller #1 ••• U307 *** programmed HP P/N : 12101-80018 
Use DATA I/O personality card type 1427, socket adapter type 1428-2. 

i t i t i. s 4 
/UCLK PL8 PL7 PL6 PL5 /LVLO SMPV SPE /ICRS GND 

GND BPON /QPEI /PSFF /QMPI /MPEN /DTST /TDI /ENCN VCC 

>v a \-\ > : -, ^ i io 

i% /TDI := ENCN«PL8»/PL7*/PL6»PL5»BPON + 
/ENCN*TDI»/LVL0*BPON + 
ENCN«TDI»/PL8«/LVL0*BPON + 
ENCN«TDI«PL7*/LVL0«BPON + 
ENCN»TDI«PL6*/LVL0*BPON + 
ENCN«TDI*PL5« /LVL0*BPON 
i-> /DTST := ENCN«PL8«/PL7*PL6«PL5«BPON + 
/ENCN«DTST»BPON + 
ENCN»DTST»/PL8*BPON + 
ENCN«DTST«PL7*BPON + 
ENCN«DTST«/PL6*BP0N + 
ENCN*DTST»PL5«BPON 
(C /MPEN := ENCN«PL8*PL7*PL6*PL5«BPON + 
/ENCN*MPEN»/SMPV«BPON + 
ENCN«MPEN«/PL8«/SMPV»/ICRS«BPON + 
ENCN«MPEN*/PL7«/SMPV*/ICRS*BPON + 
ENCN»MPEN*/PL6*/SMPV*/ICRS*BPON + 
ENCN*MPEN»PL5*/SMPV*/ICRS*BPON 
t { /QMPI := SMPV*BPON + 

/ENCN*QMPI*BPON + 
ENCN*QMPI*PL8*/ICRS«BP0N + 
ENCN«QMPI*PL7*/ICRS»BPON + 
ENCN«QMPI»/PL6«/ICRS*BPON + 
ENCN«QMPI*PL5«/ICRS«BPON + 
ENCN*/PL8*/PL7«PL6*PL5»BPON 
^ /PSFF := ENCN«PL8«PL7»/PL6»PL5«BPON + 
ENCN»ICRS»BPON + 
/ENCN«PSFF*/SPE«BPON + 
ENCN*PSFF»/PL8*/SPE*BPON + 
ENCN»PSFF*/PL7*/SPE*BPON + 
ENCN*PSFF*PL6*/SPE*BP0N + 
ENCN«PSFF*PL5«/SPE«BPON 
\% /QPEI := PSFF«SPE«BPON + 

/ENCN*QPEI*BPON + 
ENCN»QPEI*PL8*BPON + 
ENCN«QPEI«PL7*BPON + 
ENCN«QPEI*PL6«BPON + 
ENCN»QPEI*/PL5«BPON 
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B.5 INTERRUPT CONTROLLER NO. 2 PAL (U407) H *4 llfk-l&X 1 

Interrupt Controller #2 *»« U407 *** programmed HP P/N : 12101-80019 
Use DATA I/O personality card type 1427, socket adapter type 1428-2. 

. ' ? x ■-- ■ ; ~> { 
/BCLK PL7 PL8 PL6 Y1 PL5 PFW1 PFW2 TBGIN GND 
GND /LDIM1 BPON /IM1 /STBG /QTBI /SPFW /ICRS /ENCN VCC 

5 /ICRS = ENCN»/PL8*PL7*PL6*PL5*BPON 

/» /QTBI := ENCN»/PL8»PL7*/PL6*PL5*BPON + 
STBG*BP0N + 

/ENCN«QTBI*/ICRS»BPON + 
ENCN«QTBI«PL8*/ICRS*BP0N + 
ENCN*QTBI»/PL7*/ICRS*BP0N + 
ENCN»QTBI*PL6*/ICRS»BP0N + 
ENCN»QTBI»PL5*/ICRS«BP0N 

f /SPFW := PFW1«/PFW2«BP0N + 
/ENCN«SPFW«BPON + 
ENCN*SPFW«PL8*BP0N + 
ENCN«SPFW*/PL7*BP0N + 
ENCN«SPFW*/PL6*BP0N + 
ENCN»SPFW*PL5«BP0N 

< l " /IM1 := Y1»LDIM1*/ICRS«BP0N + 
IM1*/LDIM1*/ICRS*BP0N 

< : /STBG := TBGIN«BPON 
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B.6 ASG SKIP SPECIAL PAL (U807) ' * c ' ; ^ "^ - ? '"'". 

ASG Skip Spec PAL «»* U807 «** programmed HP P/N : 12101-80020 
Use DATA I/O personality card type 1427, socket adapter 1428-3. 

I 2- h U '-, '- "' $ 

Y15 YCBUF ZERO IR04 IR03 IR01 IR05 IR10 IR00 GND 

SPARE1 SPARE2 SPARE3 IR15 /ASGSKP ASGSKP SPARE4 YN YO VCC 

Ih << l '■ <~> , $ r ^ 

ASGSKP = /IR15*IR10»/IR00«IR05«/YCBUF + 
/IR15«IR10»/IR00«IR01«ZER0 + 
/IR15*IR10«/IR00«IR04*/Y15 + 
/IR15*IR10«/IR00«IR03»/Y0 + 
/IR15*IR10*IR00*/IR05*/IR01VIR04*/IR03 + 
/IR15«IR10*IR00«IR05*YCBUF + 
/IR15»IR10»IR00«IR01«/ZER0 + 
/IR15*IR10*IR00»IR04*/IR03*Y15 + 
/IR15*IR10«IRO0«IRO3*/IR04»Y0 + 
/IR15*IR10«IR00«IR03«IR04«Y15*Y0 + 
/IR15*/IR10*IR03*/Y0 + 
IR15«YN»/Y15 + 
IR15»/YN*Y15 
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B.7 INTERRUPT JUMP TABLE FPLA (U207) 

82S153 : Interrupt Jump Table 

programmed : 1820-2787 
checksum : 454E (Hex) 



•POL HHHHHHHHHH 

«P 00 «I L 

»P 01 »I HH 

*P 02 «I HLL 

«P 03 *I HLHLL 

•P 04 «I HLHHL--H 

»P 05 *I HLH-H--H 

»P 06 »I HLHHL-HL 

«P 07 »I HLHHLHHL 

«P 08 *I HLHHLLHL 

•P 09 «I HLHHL-HL 

«P 10 «I 00000000 

»P 11 «I 00000000 

»P 12 «I 00000000 

«P 13 *I 00000000 

«P 14 »I 00000000 

»P 15 *I 00000000 

*P 16 *I 00000000 

»P 17 »I 00000000 

»P 18 *I 00000000 

«P 19 *I 00000000 

•P 20 «I 00000000 

»P 21 *I 00000000 

»P 22 «I 00000000 

«P 23 *I 00000000 

•P 24 «I 00000000 

*P 25 *I 00000000 

*P 26 «I 00000000 

»P 27 *I 00000000 

*P 28 *I 00000000 

•P 29 *I 00000000 

«P 30 «I 00000000 

•P 31 *I oooooooo 

*P D9 »I 00000000 

»P D8 «I 00000000 

*P D7 »I 00000000 

*P D6 »I 00000000 

*P D5 «I 

»P D4 «I 

*P D3 »I 



«BI 

»BI 

«BI 

«BI 

•BI 

«BI 

*BI L 

«BI HHL 

»BI HH-H 

*BI HHHH 

*BI 0000000000 
»BI 0000000000 
»BI 0000000000 
«BI 0000000000 
«BI 0000000000 
«BI 0000000000 
«BI 0000000000 
«BI 0000000000 
«BI 0000000000 
«BI 0000000000 
«BI 0000000000 
*BI 0000000000 
«BI 0000000000 
«BI 0000000000 
«BI 0000000000 
*BI 0000000000 
*BI 0000000000 
*BI 0000000000 
»BI 0000000000 
*BI 0000000000 
«BI 0000000000 
*BI 0000000000 
«BI 0000000000 
*BI 0000000000 
*BI 0000000000 
«BI 0000000000 

»BI 

*BI L 

#BI L 



*BO A 

«BO ....A... A. 

*BO A.. A.. 

*BO . ...A..AA. 
BO « •••A»A.«* 

*BO A. A... 

«BO ....A. A. A. 
*BO . ...A.AA.. 
*BO . . . .A. AAA. 
•BO . ...A. AAA. 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
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»P D2 *I «BI L 

»P D1 *I «BI L 

•P DO »I 00000000 *BI 0000000000 
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B.8 SOURCE SPECIAL FPLA (U607) 

82S153 : Source Special FPLA 

programmed : 1820-2788 
checksum : 8050 (Hex) 



•POL HHHHHHHHHH 

*P 00 *I 

*P 01 «I H 

»P 02 *I H~ 

«P 03 »I -H 

*P 04 »I H 

«P 05 *I 

«P 06 »I 

*P 07 »I H 

•P 08 »I ~H 

»P 09 *I — H 

»P 10 *I — H L- 

*P 11 «i __H 

»P 12 «I — H 

«P 13 *I — H 

»P 14 »I H 

*P 15 »I H 

«P 16 »I H--L- 

*P 17 *I H 

«P 18 »I L 

*P 19 *I H 

«P 20 *I H 

«P 21 «I 00000000 

*P 22 «I 00000000 

*P 23 *I 00000000 

*P 24 «I 00000000 

*P 25 «I 00000000 

»P 26 «I 00000000 

«P 27 »I 00000000 

*P 28 »I 00000000 

*P 29 *I 00000000 

«P 30 *I 00000000 

*P 31 *I 00000000 

»P D9 *I 00000000 

»P D8 *I 00000000 

»P D7 *I 00000000 

»P D6 «I 

«P D5 «I 

«P D4 *I 

»P D3 *I 



*BI LH 

»BI HLL L- 

«BI HHL L- 

«BI HLH L- 

*BI HHH H- 

«BI L-H 

«BI HLH L- 

*BI HHH H- 

*BI L 

*BI HLL L- 

»BI HHL L- 

»BI HLH L- 

»BI HHH L- 

«BI HHH H- 

«BI L 

*BI HLL L- 

»BI HHL L- 

*BI HLH L- 

»BI HHH LL 

»BI HHH H- 

*BI 

*BI 0000000000 
*BI 0000000000 
»BI 0000000000 
«BI 0000000000 
*BI 0000000000 
»BI 0000000000 
*BI 0000000000 
*BI 0000000000 
»BI 0000000000 
«BI 0000000000 
«BI 0000000000 
»BI 0000000000 
*BI 0000000000 
»BI 0000000000 

»BI 

«BI 

»BI 

*BI 



*BO A... 

»BO A... 

*B0 A... 

tj\J • • • * « • ri • • • 

«B0 A... 

*B0 A.. 

*B0 A.. 

«B0 A.. 

•BO A 

«B0 A.... 

«BO A 

*B0 A.... 

Dv • • •« *A« *•• 

«B0 A 

«BO A 

Dv « ••«A«« • • • 

*dU ••*•»••••• 

»B0 A 

«B0 A 

D\J • • • f* • • » • « • 

•B0 AAAAAAAAAA 

•B0 AAAAAAAAAA 

•BO AAAAAAAAAA 

•BO AAAAAAAAAA 

•BO AAAAAAAAAA 

•BO AAAAAAAAAA 

•BO AAAAAAAAAA 

•BO AAAAAAAAAA 

•BO AAAAAAAAAA 

•BO AAAAAAAAAA 

•BO AAAAAAAAAA 
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*P D2 «I «BI 

»P D1 *I 00000000 *BI 0000000000 
•P DO «I 00000000 »BI 0000000000 
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B.9 I/O HANDSHAKE FPLA (U709) 

82S153 : I/O Handshake and MEMGO-Killer State Machine 

programmed : 1820-2789 
checksum : 5836 (Hex) 



*P0L HLHHHHHHHH 

*P 00 *I -LLL-LLH 

»P 01 *I -LLLL-LH 

»P 02 *I -LHL-LLH 

*P 03 *I -LHLL-LH 

*P 04 »I -H-L--H- 

«P 05 «I -H-L--L- 

•P 06 *I -H-H--HH 

•P 07 »I -H-H— LH 

*P 08 «I 

«P 09 *I H 

*P 10 «I H 

»P 11 »i 

*P 12 «I 00000000 

*P 13 *I 00000000 

•P 14 *I 00000000 

«P 15 «I 00000000 

«P 16 «I 00000000 

»P 17 *I 00000000 

«P 18 *I 00000000 

«P 19 *I 00000000 

«P 20 «I 00000000 

»P 21 «I 00000000 

«P 22 «I 00000000 

«P 23 *I 00000000 

«P 24 »I 00000000 

*P 25 «I 00000000 

*P 26 »I 00000000 

«P 27 »I 00000000 

•P 28 *I 00000000 

«P 29 »I 00000000 

«P 30 «I 00000000 

«P 31 *i oooooooo 

»P D9 *I 

«P D8 »I 

•P D7 »I 

«P D6 »I 00000000 

«P D5 *I 

«P D4 »I 

«P D3 *I 



»BI 

*BI 

*BI 

*BI 

«BI 

«BI 

*BI 

#BI 

»BI L— 

«BI HH 

«BI HHL 

#BI L HH- 

»BI 0000000000 
»BI 0000000000 
*BI 0000000000 
*BI 0000000000 
*BI 0000000000 
»BI 0000000000 
*BI 0000000000 
*BI 0000000000 
»BI 0000000000 
*BI 0000000000 
*BI 0000000000 
*BI 0000000000 
*BI 0000000000 
«BI 0000000000 
*BI 0000000000 
*BI 0000000000 
*BI 0000000000 
*BI 0000000000 
»BI 0000000000 
«BI 0000000000 

»BI 

«BI 

«BI 

*BI 0000000000 

«BI 

«BI 

»BI 



*B0 A. 

»BO A. 

»BO A A.. 

*BO A.. 

•BO A. A.. A.. 
•BO ..A. .A.. 
•BO A.A..AA. 
•BO ..A..AA. 
•BO A... 

D\J • • •»n*«« 
D\J »/!*«•••• 

•BO .A 

•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
*BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
•BO AAAAAAAAAA 
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*p 


D2 


•I 


00000000 


*BI 


0000000000 


•p 


D1 


•I 


00000000 


«BI 


0000000000 


*p 


DO 


«I 


00000000 


*BI 


0000000000 
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This appendix contains a listing of the Test 2 portion of the self -test, 
loaders, and Virtual Control Panel programs contained in ROM located on the 
memory controller card. 

The 4k ROM code is identified by HP part number 5180-0189 and 5180-0190 and 
is contained in ICs U606 and U706, respectively, on the memory controller 
card. The sockets for U606 and U706 will also accept most 8k EPROMs (2764s). 

A user who intends to change the ROM code for any reason should keep in mind 
the considerations described below. 

In A600 computers, sockets accommodating 8k PROM parts are provided. (The 
A700 computers provide two additional ROM sockets for user loaders 
implemented in 4K parts (°73?).) A user who wants to create his own loaders 
should burn the current VCP code into the first half of the 8k parts (2764) 
and his own loader code into the second half. The start-up switches on the 
processor card may be set to execute this code on power-up; the code may also 
be invoked by VCP commands when the VCP program is being run. 

The VCP address space is separate from the main memory of the computer, 
consisting of 1k words of RAM in the base page and 4k or 8k words of ROM 
space. The VCP program provided with the computer occupies 4k of ROM space 
(octal addresses 20000 to 27777). Additional space from addresses 30000 to 
37777 may be assigned to user loaders, as described above, with user code 
starting at location 30002. Thus, locations 30000 and 30001 may be used for 
revision code and checksum. The RAM area of the VCP address space can be 
accessed only by the VCP or microcode. However, the VCP can access main 
memory through the use of cross-map instructions. Because the VCP memory 
area is not mapped, the VCP can execute even when the maps or main memory is 
not functional. 

As the VCP runs from ROM, any instruction that might need to modify ROM 
cannot be used. Thus, JLB instructions are used for subroutine linkage, 
rather than JSB instructions. 
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When the VCP mode is enabled, trap cells for interrupts are in the VCP RAM 
address space, but DMA self -configuration quadruplets are not, as all DMA 
transfers still access main memory. In order to test DMA, the VCP reserves 
the last 64 locations of page in main memory; these locations also are used 
by the VCP for passing the command string to BOOTEX or diagnostics. 

The base page of VCP RAM is divided as follows: 

00000 to 00077 Reserved for trap cells. 

00100 to 00177 Reserved for microcode use. 

00200 to 00777 Reserved for HP-supplied VCP. 

01000 to 01377 Available for user ROM code (loaders or power-up). 

01400 to 01777 Reserved for error logging in A700 computers. 

The VCP program is divided into four pages (page to page 3). Page 
contains the Pretest (Test 2 portion of the self -test) . Page 1 contains the 
user interface. Page 2 contains the drivers for the ASIC card, the 
intelligent interface cards, and the DS loader. Page 3 contains the ROM 
loader, the CTU loader, and the disc loader. 

User ROM code can call the existing loader routines through a jump table 
located at the beginning of page 3. 

The following is a summary of points to remember about VCP addressing: 

1. The boot ROM code space begins at address 20000 octal and continues to 
37777 octal. Addresses above 37777 produce undefined results. 

2. Boot RAM space is from 00002 to 17777 octal, but in the A600 and A700 
computers, only 1k of boot RAM is installed (addresses 2 to 1777 octal). 

3. Portions of boot RAM have been set aside for system functions and may not 
be used for other purposes. 

The following pages contain a sample 4k-R0M listing of the VCP, loaders, and 
self -test programs. As ROM firmware is subject to change, later versions 
will differ in minor details from. what is shown in this listing. (Note that 
there is a Cross Reference Symbol Table at the end of the listing.) 
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P <c ■- * rt 



a 



00001 MACRO,A,Q=S,C 

00002* A -> ABSOLUTE ASSEMBLY 

00003* Q=S -> SHORT LISTING 

00004* C -> PRINT CROSS REFERENCE TABLE 

00005* 

00006*********************************************************************** 

00007* 

00008* NAME: 4VCP 

00009* 

00010* SOURCE: 24998-18540 

00011* 

00012* BURN TAPE: 24998-16540 AND 24998-16541 

00013* 

00014* ROMS: 5180-0189 HIGH BYTE AND 5180-0190 LOW BYTE 

00015* 

00016* PGMR: D.A.F. 

00017* 

00018* LAST MODIFIED: 820706.0954 

00019* 

Q0020* **************************************************************** 

00021* (C) COPYRIGHT HEWLETT PACKARD COMPANY 1982. ALL RIGHTS * 

00022* RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * 

00023* REPRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 

00024* THE PRIOR WRITTEN CONSENT OF HEWLETT PACKARD COMPANY * 

00025***************************************************************** 

00026* 

00027* 

00028* 

00029* 
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00031* 
00032 

00033* 

00034 

00035* 

00036* 

00037* 

00038* 

00039* 

00040* 

00041* 

00042 

00043* 

00044* 

00045* 

00046 

00047* 

00048* 

00049* 

00050 

00051* 

00052* 

00053* 

00054* 

00055* 

00056* 

00057* 

00058* 

00059* 

00060* 

00061* 

00062* 

00063* 

00064* 

00065* 

00066* 

00067* 

00068 

00069 

00070* 

00071 



020000 EPROM EQU 20000B 

MACLIB "DMS ; PHOENIX OPCODE MACRO FILE 

the first 64 locations of boot memory are reserved for trap cells 

00100 ORG 100B 

VIRTUAL REGISTER AREA FOR PROCESSOR (64 LOCATIONS) 
00100 000000 WMAP NOP OLD WMAP VALUE ON ENTRY 

000001 CPUST EQU 1 

CPU STATUS IS OBTAINED BY A LIA/B 1 
SW 1 BIT 8 = BOOT SELECT 

2 9 = BOOT SELECT 1 

3 10 = BOOT SELECT 2 

4 11 = BOOT SELECT 3 

5 12 = SELECT ALTERNATE VCP DRIVER 

6 13 = RESERVED 

14 = MEMORY LOST (LOW TRUE) ONLY valid for 5 ms 
8 15 = INTERRUPT MASK BIT 1 (TBG MASK) 

SWITCH 7 IS RESERVED ON THE PROCESSOR FOR INT/EXT CLOCK 



CPU CONTROL OUTPUT BY AN OTA/B 1 
BIT 0-7 = STATUS LIGHT 0-7 

MIC .JLB.104600B.1 
MIC .JLA.100600B.1 



00200 



ORG 200B 
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00072* 








00073* 


BASE PAGE 


STORAGE LC 


tCATI 


00074* 








00075 


000000 


A EQU 





00076 


000001 


B EQU 


1 


00077 


000002 


GR EQU 


2 


00078 


000030 


DATA EQU 


30B 


00079 


000032 


STATS EQU 


32B 


00080 


000031 


CMND EQU 


31B 


00081 


000030 


DATA EQU 


30B 


00082 


00200 000000 


SAVEI NOP 




00083 


00201 000000 


SAVEO NOP 




00084 


00202 000000 


SAVEE NOP 




00085 


00203 000000 


SAVEP NOP 




00086 


00204 000000 


SAVEA NOP 




00087 


00205 000000 


SAVEB NOP 




00088 


00206 000000 


SAVEG NOP 




00089 


00207 000000 


SAVEX NOP 




00090 


00210 000000 


SAVEY NOP 




00091 


00211 000000 


SAVEQ NOP 




00092 


00212 000000 


SAVEZ NOP 




00093 


00213 000000 


SAVEM NOP 




00094 


00214 000000 


SAVEW NOP 




00095* 








00096 


00215 000000 


MLOST 


NOP 


00097 


00216 000000 


D1SV 


NOP 


00098 


00217 000000 


PNTR 


NOP 


00099 


00220 000000 


PNTRS 


NOP 


00100 


00221 000000 


SVCHR 


NOP 


00101 


00222 000000 


SACOMN 


NOP 


00102 


00223 000000 


CTR 


NOP 


00103 


00224 000000 


MCNTR 


NOP 


00104 


00225 000000 


PCNTR 


NOP 


00105 


00226 000000 


PUTCT 


NOP 


00106 


00227 000000 


PETMP 


NOP 


00107 


00230 000000 


PERTN 


NOP 


00108 


00231 000232 


PEJMPI 


JMP 


00109 


00232 000000 


PE 


NOP 


00110 


00233 000000 


TBG 


NOP 


00111 


00234 000000 


ILI 


NOP 


00112 


00235 000000 


PFW 


NOP 


00113 


00236 000000 


MPT 


NOP 


00114 


00237 000000 


UITRTN 


NOP 


00115 


00240 000241 


UIJMPI 


JMP 


00116 


00241 000000 


UIT 


NOP 


00117 


00242 000000 


INTIO 


NOP 


00118 


00243 000000 


PEFLAG 


NOP 


00119 


00244 000000 


DISPLAY 


NOP 



MEMORY LOST FLAG LOW TRUE IN SIGN BIT 
DATA 1 MAP SAVE FOR % CLEAR MEMORY 



COUNT FOR MAP DISPLAY 
PAGE COUNT FOR MAP DISPLAY 
CHAR COUNT FOR PUTS 

RETURN ADDRESS FROM PE ROUTINE 
PE,I PUT HERE DURING EXECUTION 
PLACE FOR DEF TO PEINT ROUTINE 
DEF TO TBG ROUTINE 

ETC 

RETURN ADDRESS FROM UIT ROUTINE 
UIT, I PUT HERE DURING EXECUTION 

DEF TO I/O INT ROUTINE 

1 IF PARITY ERROR DURING LAST COMMAND 

ERROR DISPLAY 
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00120 
00121 
00122 

00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 

00136 

00137 

00138* 

00139 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150* 

00151 

00152 

00153 

00154 

00155 

00156* 

00157 

00158 

00159 

00160 

00161 

00162 

00163 
00164 
00165 
00166 



00245 
00246 
00247 
00250 
00251 
00252 

00253 
00254 
00255 
00256 
00257 
0026O 
00261 
00262 

00263 
00264 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



00265 000000 

00266 000000 



00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



00302 000000 

00303 000000 

00304 000000 

00305 000000 
00306 



00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



TBGCNT 

MSIZE 

ECCCNT 

CORCNT 

CNTR 

TRYCT 

DC TO 

MPTR 

PPNTR 

BASE 

HPIT 

TEMP 

CHAR 

RFTMP 

IORGN 

SCETC 

LERR 
PARTIAL 



NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 

NOP 
NOP 



UNIT 

SUBCH 

DISC. ID 

UNIT. HEAD 

CYLNDR. OFFSET 

FILE 

HEAD. CYLINDER 

SECTR. TRACK 

VW1 

VW2 

VW3 



PEADD 

PEMAP 

VCPTFLG 

TRAPFLAG 

STRNG 



COUNT FOR 10 MS FROM TBG 

NUMBER OF 32K BLOCKS OF PHYSICAL MEMORY 

NUMBER OF 32K ECC BLOCKS 

NUMBER OF SINGLE BIT CORRECTIONS 

RETRY COUNTER FOR AUTO BOOT 
TIME OUT FOR DISC LOADER 

POINTER TO MAP REG BEING OUTPUT 

=> OCTAL, -1 => HEX 



TEMPORARY FOR RF ROUTINE 

I/O REGISTER NUMBER FOR RXX COMMAND 

2127 OR WHATEVER TYPED IN AFTER LOAD OR 

BOOT 
LOADER ERROR 
PARTIAL COUNT FOR DISC LOADER 



NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 



FLAG 



VECTOR WORD 1 
VECTOR WORD 2 
VECTOR WORD 3 
WHEN TALKING TO 
LINUS THESE WILL 
DIFFER FROM ABOVE 



NOP 
NOP 
NOP 
NOP 
BSS 40 



PARITY ADDRESS 
BLOCK FOR PARITY ADDRESS 
FLAG FOR JTEST COMMAND 
FLAG FOR TRAP CELLS CLOBBERED 
;BOOT COMMAND STRING (ALLOW 80 
CHARACTERS) 



LSTR 

GSLR 

STORE. 

DPNTR 

BFLAG 

DFLAG 

RFLAG 

TFLAG 

MAP 

PAGE 



NOP 

NOP 

POINTER 

NOP 



NOP 



LENGTH OF STRING 
LEFT/RIGHT BYTE FLAG 
POINTER TO STRNG 



NOP 

NOP DIGIT FLAG MSB = 1 => ONE DIGIT 

NOP ROM FLAG USED IN "TREG" ROUTINE 

NOP TRACE FLAG MSB = 1 => TRACE IN PROGRESS 

NOP CURRENT MAP 

NOP CURRENT PAGE 
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00167 


00370 


MPBUF 


BSS 32 


00168 


00430 


MZSV 


BSS 32 


00169 


00470 000000 


DIG1 


NOP 


00170 


00471 000000 


DIG2 


NOP 


00171 


00472 000000 


DIG3 


NOP 


00172 


00473 000000 


DIG4 


NOP 


00173 


00474 000000 


DIG5 


NOP 


00174 


00475 000000 


DIG6 


NOP 


00175 


00476 000000 


DIGS 


NOP 


00176* 








00177 


00477 000000 


PO.CT 


NOP 


00178 


00500 000000 


P0.T3 


NOP 


00179 


00501 000000 


TEMP 2 


NOP 


00180 


00502 000000 


TEMPI 


NOP 


00181 


00503 000000 


TEMPO 


NOP 


00182 


00504 000000 


TEMP3 


NOP 


00183 


00505 000000 


PO.A 


NOP 


00184 


00506 000000 


PO.B 


NOP 


00185* 








00186 


00507 000000 


FIRST 


NOP 


00187 


00510 000000 


NDCLR 


NOP 


00188 


00511 000000 


POINTER 


NOP 


00189 


00512 000000 


SIDE? 


NOP 


00190 


00513 000000 


VCP.FLAG 


NOP 


00191 


00514 000000 


VCPSC 


NOP 


00192 


00515 000000 


ASFLG 


NOP 


00193* 








00194 


00516 000000 


EXLOAD 


NOP 


00195 


00517 000000 


P3.CT 


NOP 


00196 


00520 000000 


.PU 


NOP 


00197 


00521 000000 


DSCNT 


NOP 


00198 


00522 000000 


DSADD 


NOP 


00199 


00523 000000 


DSCHK 


NOP 


00200* 








00201 


00524 000000 


XEQT NOF 


> 


00202 


00525 000000 


NOF 


> 


00203 


00526 000524 


JMP 


XEQT, I 



COPY OF CURRENT MAP 
COPY OF MAP ZERO 



IS THERE A VCP?? 

SELECT CODE OF VCP 

NONZERO FOR TIC, ZERO FOR DS 

EXTENDED LOAD COUNTER FOR DS LOADER 
RECORD COUNT FOR DS LOADER 
ASCII P AND UNIT NUMBER FOR CTU LOADER 
WORD COUNT FOR ABS BINARY IN DS LOADER 
ADDRESS COUNT FOR DS LOADER 
CHECKSUM FOR DS LOADER 

THIS IS USED IN THE I/O 

REGISTER ROUTINE 
PLANTED HERE DURING EXECUTION 
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00201* 










00205* 


THESE ARE 


THE SU 


brout: 


00206* 










00207 


00527 


000000 


RPUTS 


NOP 


00208 


00530 


000000 


RENDV 


NOP 


00209 


00531 


000000 


RENQAK 


: nop 


00210 


00532 


000000 


RGETS 


NOP 


00211 


00533 


000000 


R0UT1 


NOP 


00212 


00534 


000000 


ROUTN 


NOP 


00213 


00535 


000000 


RLCH1 


NOP 


00214 


00536 


000000 


RLCHR 


NOP 


00215 


00537 


000000 


ROUTD 


NOP 


00216 


00540 


000000 


RECHO 


NOP 


00217 


00541 


000000 


RPUTC 


NOP 


00218 


00542 


000000 


RGETC 


NOP 


00219 


00543 


000000 


RGETREG NOP 


00220 


00544 


000000 


RGETN 


NOP 


00221 


00545 


000000 


RSCNSC 


: NOP 


00222 


00546 


000000 


RRSTO 


NOP 


00223 


00547 


000000 


RCOMN 


NOP 


00224* 










00225 


00550 


000000 


RCTU 


NOP 


00226 


00551 


000000 


RTI.W 


NOP 


00227 


00552 


000000 


RTI.B 


NOP 


00228 


00553 


000000 


RTO.B 


NOP 


00229 


00554 


000000 


RTO.W 


NOP 


00230 


00555 


000000 


RCTIO 


NOP 


00231* 










00232 


00556 


000000 


RRMLD 


NOP 


00233 


00557 


000000 


RDCLD 


NOP 


00234 


00560 000000 


RPHI? 


NOP 


00235 


00561 


000000 


RPHI 


NOP 


00236 


00562 


000000 


RPHII 


NOP 


00237 


00563 


000000 


RHP IB 


NOP 


00238 


00564 


000000 


RPHIF 


NOP 


00239 


00565 


000000 


RHPIBX 


: NOP 


00240 


00566 


000000 


RDCIN 


NOP 


00241 


00567 


000000 


RDTPC 


NOP 


00242 


00570 


000000 


RDCRW 


NOP 


00243 


00571 


000000 


RDSLD 


NOP 


00244 


00572 


000000 


RS.SC 


NOP 


00245 


00573 


000000 


RDS.B 


NOP 


00246 


00574 


000000 


RDS.G1 


: NOP 


00247 


00575 


000000 


RCI.IZ 


: nop 


00248 


00576 


000000 


RCI.ID NOP 


00249 


00577 


000000 


RTG.BF 


' NOP 


00250 


00600 


000000 


RTG.TB NOP 
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00251 

00252 

00253 

00254 

00255 

00256 

00257» 

00258 

00259 

00260* 

00261* 

00262* 

00263* 

00264 

00265 

00266* 

00267* 

00268 

00269 

00270 

00271* 

00272* 

00273 



00601 000000 

00602 000000 

00603 000000 

00604 000000 

00605 000000 

00606 000000 

00607 000000 
00610 000000 



RCL.IZ NOP 
RDS.FT NOP 
RDS.CM NOP 
RCS.FT NOP 
RCS.CM NOP 
R0UT2C NOP 



RGT01 
RI.O 



NOP 
NOP 



256 LOCATIONS RESERVED FOR USER ROM CODE 

01000 ORG 1000B 

01000 BSS 256 

LAST 256 LOCATIONS RESERVED FOR ERROR LOGGING 
01400 ORG 1400B 

01400 BSS 256 

002000 LAST EQU * 



20000 



ORG EPROM 
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00275 




020000 


PO EQU * 


PAGE REFERENCE 




00276* 


I. 


PRETEST 






00277» 




THE PRETEST IS USED TO 


VERIFY EXECUTION OF THE BASIC 




00278* 




INSTRUCTIONS USED IN THE BOOT LOADERS. THE ASUMPTION IS 


00279* 




MADE 


THAT THE JMP INSTRUCTION IS FUNCTIONAL AND WILL BE 




00280* 




USED 


TO STOP EXECUTION. 


THE PRETEST IS NOT INTENDED TO 




00281* 




BE A 


COMPLETE CHECK OF 


THE CPU, BUT ONLY THAT THE INSTRUC- 


00282* 




TIONS 


USED IN THE BOOT 


ARE FUNCTIONAL SO THAT A BOOT LOAD 


00283* 




MAY BE POSSIBLE. 






00284* 












00285 


20000 


000006 


RVCODE OCT 6 


CONSTANT (REV CODE GOES HERE) 


00286 


20001 


000000 


CHKSUM NOP 


CHECKSUM SPOT 




00289* 


THE FOLLOWING INSTRUCTIONS 


CHECK THE CPU ONLY 




00290* 


MACROCODE 


; EXECUTION STARTS 


HERE AFTER POWER UP OR RESET 




00291* 












00292 


20002 


002400 


START CLA 






00293 


20003 


000304 


STA VCPTFLG 


NO TEST, POWER UP 




00294 


20004 


102501 


LIA CPUST 


GET MLOST BIT 




00295 


20005 


000215 


STA MLOST 






00296 


20006 


021711 


LDA B3 


TRY TO INDICATE IN INSTRUCTION TEST 


00297 


20007 


003000 


CMA 






00298 


20010 


102601 


OTA CPUST 






00299 


20011 


002701 


CLA.CCE.RSS 


A=000000 B=XXXXXX E=1 0=X 


+SKP 


00300 


20012 


020012 


JMP * 


RSS FAILED 




00301 


20013 


006440 


CLB ,SEZ 


A=000000 B=000000 E=1 0=X 


-SKP 


00302 


20014 


002102 


CLE, SZA 


A=000000 B=000000 E=0 0=X 


+SKP 


00303 


20015 


020015 


JMP * 


CCE-SEZ OR CLA-SZA FAILED 




00304 


20016 


003041 


CMA.SEZ.RSS 


A=1 77777 B=000000 E=0 0=X 


-SKP 


00305 


20017 


006202 


CME.SZB 


A=177777 B=000000 E=1 0=X 


+SKP 


00306 


20020 


020020 


JMP * 


CCE OR CLB-SZB FAILED 




00307 


20021 


007040 


CMB.SEZ 


A=177777 B=177777 E=1 0=X 


-SKP 


00308 


20022 


006003 


SZB.RSS 




+SKP 


00309 


20023 


020023 


JMP * 


CME OR CMB FAILED 




00310 


20024 


000001 


CPA B 




-SKP 


00311 


20025 


002414 


CLA, SLA, I NA 


A=000001 B=177777 E=1 0=X 


+SKP 


00312 


20026 


020026 


JMP * 


CMA-CPA B-SLA.INA FAILED 




00313 


20027 


002002 


SZA 




-SKP 


00314 


20030 


002020 


SSA 




+SKP 


00315 


20031 


020031 


JMP * 


INA OR SSA FAILED 




00316 


20032 


006400 


CLB 


A=000001 B=000000 E=1 0=X 




00317 


20033 


003420 


CCA, SSA 


A=1 77777 B=000000 


-SKP 


00318 


20034 


002003 


SZA.RSS 




+SKP 


00319 


20035 


020035 


JMP * 


CCA-SSA OR SZA, RSS FAILED 




00320 


20036 


002010 


OCT 002010 


ASG SLA 


-SKP 


00321 


20037 


002131 


CLE, SSA, SLA 


,RSS A=177777 B=000000 E=0 0=X +SKP 


00322 


20040 


020040 


JMP * 


SLA OR SSA, SLA, RSS FAILED 




00323 


20041 


102101 


STO 


A=177777 B=000000 E=0 0=1 
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00324 


20042 


102201 


00325 


20043 


102301 


00326 


20044 


020044 


00327 


20045 


103101 


00328 


20046 


102301 


00329 


20047 


102201 


00330 


20050 


020050 


00332 


20051 


021761 


00333 


20052 


006003 


00334 


20053 


000001 


00335 


20054 


020054 


00336 


20055 


021761 


00337 


20056 


000001 


00338 


20057 


021761 


00339 


20060 


000000 


00340 


20061 


003401 


00341 


20062 


020062 


00342 


20063 021760 


00343 


20064 


021760 


00344 


20065 


002001 


00345 


20066 


020066 


00346 


20067 


021761 


00347 


20070 


002002 


00348 


20071 


020071 


00349 


20072 


021721 


00350 


20073 


021760 


00351 


20074 


021760 


00352 


20075 


003401 


00353 


20076 


020076 


00354 


20077 


021761 


00355 


20100 


021760 


00356 


20101 


002440 


00357 


20102 


020102 


00358 


20103 


021761 


00359 


20104 


021761 


00360 


20105 


002040 


00361 


20106 


020106 


00362 


20107 


021760 


00363 


20110 


102301 


00364 


20111 


003002 


00365 


20112 


020112 


00366 


20113 


003440 


00367 


20114 


020114 


00368 


20115 


021751 


00369 


20116 


021752 


00370 


20117 


002041 


00371 


20120 


020120 



soc 

SOS 
JMP « 
CLO 
SOS 
SOC 
JMP « 

LDA ALT1 
SZB.RSS 
CPA B 
JMP « 
CPA ALT1 
STA B 
LDA ALT1 
CPB A 

CCA, RSS 
JMP « 
AND ALTO 
CPA ALTO 
RSS 
JMP * 
AND ALT1 
SZA 
JMP « 
LDA B24 
IOR ALTO 
CPA ALTO 
CCA, RSS 
JMP « 
XOR ALT1 
CPA ALTO 
CLA.SEZ 
JMP « 
ADA ALT1 
CPA ALT1 
SEZ 
JMP • 
ADA ALTO 
SOS 

CMA.SZA 
JMP * 
CCA, SEZ 
JMP « 
ADA M1 
CPA .N2 
SEZ, RSS 
JMP * 



STO-SOC-SOS FAILED 

A=1 77777 B=000000 E=0 0=0 



CLO-SOS-SOC FAILED 

A=1 25252 B=000000 E=0 0=0 

CPA B OR CLB-SZB.RSS FAILED 
A=125252 B=125252 E=0 0=0 



A=1 77777 B= 125252 E=0 0=0 

CPA-STA-CPB FAILED 

A=052525 B=125252 E=0 0=0 



AND-CPA FAILED 

A=000000 B=125252 E=0 0=0 

AND FAILED 

A=000024 B=1 25252 E=0 0=0 

A=052525 B=1 25252 E=0 0=0 

A= 177777 B=1 25252 E=0 0=0 

XOR FILED 

A=052525 B= 125252 E=0 0=0 

A=000000 B=1 25252 E=0 0=0 

IOR-XOR FAILED 

A=1 25252 B=1 25252 E=0 0=0 



CLA OR ADA FAILED 

A=1 77777 B=1 25252 E=0 0=0 

A=000000 B=125252 E=0 0=0 

ADA FAILED 

A=177777 B=125252 E=0 0=0 

ADA FAILED 

A=177776 B=125252 E=1 0=0 



ADA FAILED 



-SKP 
+SKP 



-SKP 
+SKP 



+SKP 
-SKP 



+SKP 
+SKP 



-SKP 
+SKP 



+SKP 



-SKP 
+SKP 



-SKP 
+SKP 



-SKP 
+SKP 



-SKP 
+SKP 

+SKP 



-SKP 
+SKP 
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00372 
00373 
0037 1 * 
00375 
00376 
00377 

00379 
00380 
00381 
00382 
00383 
00384 

00385 
00386 
00387 
00388 
00389 
00390 
00391 
00392 

00394* 

00395* 

00396* 

00397 

00398 

00399 

00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00408 

00409 
00410 
00411 
00412 

00413 
00414 
00415 



20121 102301 

20122 002101 

20123 020123 

20124 000000 

20125 000000 

20126 020126 



20127 
20130 
20131 
20132 
20133 
20134 
20135 
20136 
20137 
20140 
20141 
20142 
20143 
20144 



021743 
021751 
102201 
002141 
020133 
103101 
002004 

021743 
002040 
020140 
000001 
021761 
103301 
020144 



SOS 

CLE.RSS 
JMP * 
ISZ A 
ISZ A 
JMP * 

LDA B100K 

ADA M1 

SOC 

SEZ.CLE.RSS 

JMP * 

CLO 

INA 

CPA B100K 

SEZ 

JMP * 

LDA B 

CPA ALT1 

SOS C 

JMP * 









-SKP 


A=177776 B=1 25252 


E=0 


0=0 


+SKP 


ADA FAILED 








A= 177777 B= 125252 


E=0 


0=0 


-SKP 


A=000000 B=125252 


E=0 


0=0 


+SKP 


ISZ FAILED 








A=1 00000 B=125252 


E=0 


0=0 




A=077777 B= 125252 


E=1 


0=1 


-SKP 


A=077777 B= 125252 


E=0 


0=1 


+SKP 


ADA FAILED 








A=077777 B= 125252 


E=0 


0=0 




A=100000 B=125252 


E=0 


0=1 


-SKP 
+SKP 


ADA FAILED 








A=1 25252 B=1 25252 


E=0 


0=1 


-SKP 


A=125252 B=125252 


E=0 


0=0 


+SKP 


B-REG. WAS MODIFIED 









THE FOLLOWING SEQUENCE IS USED TO CHECK 
JLA, JMP X,I, AND STA X,I 



20145 
20146 
20147 
20150 
20151 
20152 

20153 
20154 
20155 
20156 
20157 
20160 
20161 
20162 
20163 
20164 
20165 
20166 
20167 
20170 
20171 



020207 
000000 
100600 
020152 
020151 
020206 
002301 
020154 
002400 
006400 
101741 
105751 
105762 
020164 
020163 
002002 
020165 
101754 
020211 
006002 
020171 



LDA PTJPR 
LDB A 
.JLA PTRTO 

JMP * 
PTRTO CPA PTDF1 
CCE.RSS 
JMP * 
CLA 
CLB 
CAX 
CBY 
JLY PTRT1 

JMP * 
PTRT1 SZA 

JMP * 

CYA 

CPA PTJYO 

SZB 

JMP * 



WILL GET RETURN ADDR IN A 

JLA TO PTRTO 

JLA FAILED 

CORRECT RETURN ADDRESS? 

YES 

NO 

CLEAR A 

& B 

& X 

& Y 
JMP & LOAD Y W/P+2 

DID NOT MAKE IT 
A STILL CLEAR ? 

COPY Y TO A 
P+2 ? 

YEP , B STILL ZERO ? 
LOOSE 
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00416 


20172 


105744 




CXB 


CHECK X WHILE WE 


ARE AT IT 


00417 


20173 


006002 




SZB 


? 






00418 


20174 


020174 




JMP • 


UH UH! 






00419 


20175 


020205 




LDA PTDFO 


SET PAGE ADDRESS 






00420 


20176 


021707 




STA B1.I 


PUT IT IN B-REG. 


INDIRECTLY 


00421 


20177 


000001 




CPA B 








00422 


20200 


020205 




LDA PTDFO, I 








00423 


20201 


021710 




ADB B2 


POINT PAST CONSTANTS & SUCH 


00424 


20202 


020210 




CPA PTJMP 


INDIRECT OK? 






00425 


20203 


000000 




JMP 


YES EXECUTE B-REG. 




00426 


20204 


020204 




JMP « 








00427 


20205 


020210 


PTDFO 


DEF »+3 








00428 


20206 


020151 


PTDF1 


DEF PTRTO-1 








00429 


20207 


020152 


PTJPR 


JMP PTRTO 








00430 


20210 


000001 


PTJMP 


JMP 1,1 








00431 


20211 


020163 


PTJYO 


DEF PTRT1-1 








00433 


20212 021762 




LDA SRGP1 


B-REG. 


E 


A-REG. 


00434 


20213 


000000 




LDB A 


1000100100100111 


1 




00435 


20214 


021763 




LDA SRGP2 




1 


1001100000100000 


00436 


20215 


005025 




BLS.ERB 


1100100100100111 







00437 


20216 


005661 




ELB.CLE.BRS 


1100100100100111 







00438 


20217 


001124 




ARS.ALR 







0001100000100000 


00439 


20220 


005026 




BLS.ELB 


0100100100100111 







00440 


20221 


005523 




ERB.RBR 


0100100100100111 







00441 


20222 


001720 




ALF.ALS 







1000010000000010 


00442 


20223 


005124 




BRS.BLR 


0100100100100110 







00443 


20224 


001330 




RAR.SLA.ALS 







0000010000000010 


00444 


20225 


005221 




RBL.BRS 


1100100100100110 







00445 


20226 


002300 




CCE 




1 




00446 


20227 


001726 




ALF.ELA 







1000000001000001 


00447 


20230 


001522 




ERA.RAL 




1 


1000000001000000 


00448 


20231 


005427 




BLR.BLF 


0010010011000001 


1 




00449 


20232 


001122 




ARS.RAL 




1 


1000000001000001 


00450 


20233 


005220 




RBL.BLS 


0001001100000100 


1 




00451 


20234 001135 




ARS.SLA.ERA 







1110000000010000 


00452 


20235 


020235 




JMP • 


SLA FAILED 






00453 


20236 


001623 




ELA.RAR 




1 


0110000000010000 


00454 


20237 


005327 




RBR.BLF 


1001100000100000 






00455 


20240 


002040 




SEZ 


CHECK E-REG. 






00456 


20241 


001460 




ALR.CLE.ALS 






0000000001000000 


00457 


20242 


021764 




CPA SRGP3 








00458 


20243 


102201 




SOC 








00459 


20244 


020244 




JMP « 


SRG INST A-REG. 






00460 


20245 


000001 




LDA B 


CHANGE HANDS 






00461 


20246 


021763 




CPA SRGP2 








00462 


20247 


006640 




CLB.SEZ.CME 








00463 


20250 


020250 




JMP * 


SRG INST B-REG. 
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00465 


20251 


102101 


STO 




START WITH SET 




00466 


20252 021767 


LDA 


BEAUS 


SET B=1 30272 




00467 


20253 


000000 


LDB 


A 


AND 






00468 


20254 


021765 


LDA 


AEAUS 


A=076310 E=1 




00469 


20255 


101021 


ASR 


1 


A=037144 


B=154135 E=1 


0=0 


00470 


20256 


102301 


SOS 










00471 


20257 


100117 


RRL 


15 


A=066O56 


B=1 17462 E=1 


0=0 


00472 


20260 


100022 


ASL 


2 


A= 130270 


B=176311 E=1 


0=1 


00473 


20261 


102201 


SOC 










00474 


20262 


101100 


RRR 


16 


A=176311 


B=1 30270 




00475 


20263 


100041 


LSL 


1 


A=1 74622 


B=060561 




00476 


20264 


101025 


ASR 


5 


A=107714 


B=001413 


0=0 


00477 


20265 


021770 


CPA 


ASR.O 


CHECK PRELIMINARY RESULTS 


00478 


20266 


102201 


SOC 










00479 


20267 


020267 


JMP 


* 


EAU SHIFT 


FAILED 




00480 


20270 


101040 


LSR 


16 


A=01413 


B=0 




00481 


20271 


006002 


SZB 




INSURE B 


WAS CLEARED 




00482 


20272 


020272 


JMP 


* 


WAS NOT - 


EAU SHIFT FAILED 


00483 


20273 


102101 


STO 










00484 


20274 


100020 


ASL 


16 


A=0 


B=001413 




00485 


20275 


102301 


SOS 










00486 


20276 


100026 


ASL 


6 


A=0 


B=041300 




00487 


20277 


102201 


SOC 










00488 


20300 


101100 


RRR 


16 


A=041300 


B=0 




00489 


20301 


021771 


CPA 


ASR.1 


FINAL OK? 






00490 


20302 006002 


SZB 










00491 


20303 


020303 


JMP 


* 


NO -EAU SHIFT FAILED 




00492 


20304 


021742 


LDA 


B76K 


A=076000 


B=XXXXXX E=X 


0=X 


00493 


20305 


102101 


STO 








0=1 


00494 


20306 
20307 


100200 
021740 


MPY 


B6412 


A=154000 


B=003120 E=X 


0=0 


00495 


20310 


102201 


SOC 










00496 


20311 


020311 


JMP 


* 


WAS NOT 


CLEARED BY MPY 




00497 


20312 
20313 


100400 
021761 


DIV 


ALT1 


A=166416 


B=020264 




00498 


20314 
20315 


100200 
021772 


MPY 


MU2 


A=1 56224 


B=002046 




00499 


20316 
20317 


100400 
021741 


DIV 


B7777 


A=041161 


B=007405 




00500 


20320 


100101 


RRL 


1 


A= 102342 


B=017012 




00501 


20321 


100200 


MPY 


ALTO 


A=024412 


B=15336 






20322 021760 












00502 


20323 
20324 


100400 
021742 


DIV 


B76K 


A=1 25507 


B=142412 




00503 


20325 
20326 


100200 
021761 


MPY 


ALT1 


A=161446 


B=016075 




00504 


20327 


102101 


STO 






0=1 




00505 


20330 
20331 


100400 
021773 


DIV 


DV4 


A=126760 


B=006606 
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00506 


20332 021774 


CPA RESUA 


RESULT IN A 


00507 


20333 102201 


SOC 


0=0 


00508 


20334 020334 


JMP * 


MPY OR DIV FAILED 


00509 


20335 101100 


RRR 16 


CHANGE HANDS 


00510 


20336 021775 


CPA RESUB 


RESULT IN B 


00511 


20337 020341 


JMP *+2 




00512 


20340 020340 


JMP * 


MPY OR DIV ERROR 


00513 


20341 100400 

20342 021707 


DIV B1 


TRY OVER FLOW 


00514 


20343 102301 


SOS 


WAS IT ? 


00515 


20344 020344 


JMP * 


NO 


00516 


20345 100400 

20346 021706 


DIV .DO 


TRY ZERO TO SET OVER FLOW 


00517 


20347 102301 


SOS 


WAS IT ? 


00518 


20350 020350 


JMP * 


NO 


00519* 




TEST SBT AND LBT 


00520 


20351 003004 


CMA.INA 




00521 


20352 021766 


LDB BLBT 


GET DEF TO LBT THING 


00522 


20353 005200 


RBL 


MAKE IT A BYTE ADDRESS 


00523 


20354 105763 


LBT 


A HAS HIGH BYTE 


00524 


20355 001727 


ALF.ALF 




00525 


20356 000260 


STA TEMP 


SAVE ONE BYTE 


00526 


20357 105763 


LBT 


GET OTHER BYTE 


00527 


20360 000260 


IOR TEMP 


GET OTHER BYTE BACK 


00528 


2036 1 021765 


CPA AEAUS 




00529 


20362 002001 


RSS 




00530 


20363 020363 


JMP * 




00532* 








00533* 








00534* 


AT THIS POINT THE BASIC INSTRUCTION TEST HAS PASSED 


00535* 








00536* 


VERY DESTRUCTIVE TEST OF 1K 


VCP RAM - CLEARS RAM MEMORY 


00537* 








00538* 








00539 


20364 105745 

20365 000304 


LDX VCPTFLG 


MUST SAVE AND RSTORE VCPTFl 


00540 


20366 105755 

20367 000215 


LDY MLOST 


MUST SAVE AND RESTORE MLOS' 


00541 


20370 021715 


LDA B7 




00542 


20371 003000 


CMA 




00543 


20372 102601 


OTA CPUST 


INDICATE IN BOOT RAM TEST 


00544 


20373 021727 


LDA B100 


RAM MEMORY TEST 


00545 


20374 006400 


CLB 




00546 


20375 101105 


.MELO RRR 5 
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00547 
00548 
00549 
00550 
00551 
00552 

00553 
00554 

00555 

00556 

00557 

00558 

00559 

00560 

00561 

00562 

00563* 

00564 

00565 



00567* 
00568* 
00569* 
00570* 
00571* 
00572 

00573 
00574 

00575 
00576 
00577 
00578 
00579 
00580 
00581 
00582 

00583 
00584 

00585 
00586 
00587 
00588 
00589 
00590 
00591 
00592 



20376 
20377 
20400 
20401 
20402 
20403 
20404 
20405 
20406 
20407 
20410 
20411 
20412 
20413 
20414 
20415 



000000 
000000 
000000 
007001 
020402 
000000 
000000 
006401 
020406 
000000 
000000 
002005 
020412 
100105 
002021 
020375 



20416 105743 

20417 000304 

20420 105753 

20421 000215 



THE BOOT RAM TEST HAS PASSED 



STA @A 


PUT ADDRESS IN LOCATION 


LDB A 




CPB @A 


DID IT STORE? 


CMB.RSS 


YES 


JMP * 


BUMMER ! 


STB @A 


SAVE COMPLEMENT 


CPB @A 




CLB.RSS 


NEXT LOCATION 


JMP * 


DIDNT STORE, BAD BOOT RAM 


STB @A 


STORE ZERO 


CPB @A 


DID IT STORE? 


INA.RSS 




JMP * 




RRL 5 


TEST BIT 10 


SSA.RSS 


DONE 1K ? ««;'.- 


JMP .MELO 


NOT YET 


STX VCPTFLG 


RESTORE VCP TEST FLAG 


STY MLOST 


RESTORE MLOST BIT 



SET UP TRAP CELLS 



20422 
20423 
20424 
20425 
20426 
20427 
20430 
20431 
20432 
20433 
20434 
20435 
20436 
20437 
20440 
20441 
20442 
20443 
20444 
20445 
20446 



020000 
000205 
021505 
000234 
000232 
000233 
000235 
000236 

021703 
000241 
021716 
021677 
000000 
002004 
021727 
002001 
020436 
021676 
000004 
021673 
000005 



LDA 
STA 
LDA 
STA 
STA 
STA 
STA 
STA 
LDA 
__ STA 
LDA 
LDB 
ILLP STB 
INA 
CPA 
RSS 
JMP 
LDA 
STA 
LDA 
STA 



RVCODE 

SAVEB 

ILDEF 

ILI 

PE 

TBG 

PFW 

MPT 

UIT1 

UIT 

B11 

ILJMP 

A, I 

B100 

ILLP 

PFWJMP 

4 

PEJMP 

5 



REV CODE IN THE B REGISTER 
DEF TO ILINT IN LOCATION ILI 

FOR NOW ALL INTERRUPTS ARE ILLEGAL 
DEF TO UIT ROUTINE 

JMP ILI, I IN ALL TRAP CELLS 

STOP AT LOCATION 77B 

SET UP OTHER TRAP CELLS 
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00593 


20447 000231 


STA 


PEJMPI 


00594 


20450 021700 


LDA 


MPTJMP 


00595 


20451 000007 


STA 


7 


00596 


20452 021672 


LDA 


TBGJMP 


00597 


20453 000006 


STA 


6 


00598 


20454 021702 


LDA 


UITJSB 


00599 


20455 000010 


STA 


10B 


00600 


20456 021701 


LDA 


UITJMP 


00601 


20457 000240 


STA 


UIJMPI 


00602* 








00603* 


BASIC I/O 


ON CPU BOARD 


00604* 








00605 


20460 021733 


LDA B1 70360 


00606 


20461 102601 


OTA 


CPUST 


00607* 








00608* 








00609 


20462 102300 


SFS 





00610 


20463 102200 


SFC 





00611 


20464 021503 


JMP 


PROER 


00612* 








00613 


20465 102202 


SFC 


2 


00614 


20466 102302 


SFS 


2 


00615 


20467 021503 


JMP 


PROER 


00616* 








00617 


20470 107706 


CLC 


6,C 


00618 


20471 102100 


STF 





00619 


20472 102200 


SFC 





00620 


20473 102300 


SFS 





00621 


20474 021503 


JMP 


PROER 


00622 


20475 002400 


CLA 




00623 


20476 102600 


OTA 





00624 


20477 102604 


OTA 


4 


00625 


20500 020507 


LDA 


TBGDEF1 


00626 


20501 000233 


STA 


TBG 


00627 


20502 103706 


STC 


6,C 


00628 


20503 002400 


CLA 




00629 


20504 002306 


CCE 


,INA,SZA 


00630 


20505 020504 


JMP 


*-1 


00631 


20506 021503 


JMP 


PROER 


00633* 








00634 


20507 020510 


TBGDEF1 DEF ITBG 


00635 


20510 103100 


ITBG CLF 





00636 


20511 003004 


CMA 


,INA 


00637 


20512 001121 


ARS 


,ARS 


00638 


20513 001100 


ARS 




00639 


20514 000245 


STA 


TBGCNT 



SET UP FOR JSB IN PE TRAP CELL 



INDICATE (IF POSSIBLE) IN 10 TEST 

CHECK INTERRUPT FF 

INTERRUPT FF ERROR 

CHECK GLOBAL REG. 
SHOULD BE OFF (FLAG SET) 
GLOBAL REG. ERROR 

INSURE TBG IS OFF 
TURN ON INTERRUPTS 
CHECK IT 

INTERRUPTS NOT ON 

CLEAR INTERRUPT MASK 
CLEAR INTERRUPT REGISTER 

SET JUMP IN TRAP CELL 
TRY TIME BASE TIC 
START COUNT AT ZERO 
NOW WAIT FOR TIC 

LONG ENOUGH NOW, ERROR 



DEF TO TBG INTERRUPT 

TURN OF INTERRUPTS 

NEGATE COUNT FOR FUTURE USE 

DIVIDE BY 8 

SAVE COUNT FOR 1.25 MS 
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00640 


20515 


107706 


CLC 6,C 


TURN OFF TIC 


00641 


20516 


021505 


LDA ILDEF 




00642 


20517 


000233 


STA TBG 


TBG IS ILLEGAL INT NOW 


00643 


20520 


102504 


LIA 4 


CHECK CENTRAL INTERRUPT 


00644 


20521 


021714 


CPA B6 


WAS IT THE TBG? 


00645 


20522 


102206 


SFC 6 


FLAG SHOULD STAY CLEAR 


00646 


20523 


021503 


JMP PROER 


NOT SO ERROR (OR CIR NOT = 6) 


00647* 










00648* 






DONT TEST TBG l 


1ASK BIT ON PROC SINCE NOT 


00649* 






IMPLEMENTED ON 


A700 


00650* 


LIA CPUST 






00651* 


SSA 


DID IT STAY CLEAR? 


00652* 


JMP PROER 


NO PROCESSOR ERROR 


00653* 


LDA B2 


NOW SET MASK BIT 


00654* 


OTA 






00655* 


LIA CPUST 


GET MASK BIT 




00656* 


SSA.RSS 


DID IT SET 




00657* 


JMP PROER 


NO THEN ERROR 




00658* 


CLA 


NOW RESTORE MASK BIT 


00659* 


OTA 


IT WAS ORIGINALLY CLEAR 


00660* 










00661* 










00662* 






SEE IF WE HAVE 


A VCP 


00663* 










00664 


20524 


021720 


LDB B20 


FIRST SELECT CODE TO TRY 


00665 


20525 


107602 


VCPL OTB GR,C 


SET SELECT CODE 


00666 


20526 


021710 


LDA B2 


DIAGNOSE MODE 2 


00667 


20527 


102602 


OTA GR 


SET CARD 


00668 


20530 


102502 


LIA GR 


GET RESULT 


00669 


20531 


001710 


ALF ,SLA 


BREAK BIT SET? 


00670 


20532 


020541 


JMP VCPL1 


YES, FOUND 


00671* 










00672 


20533 


006004 


INB 


NEXT SELECT CODE 


00673 


20534 


021727 


CPB B100 


LAST SELECT CODE DONE?? 


00674 


20535 


020552 


JMP ION6 


YES, NO VCP FOUND 


00675* 










00676 


20536 


002400 


CLA 


TURN OFF DIAGNOSE MODE 


00677 


20537 


102602 


OTA GR 




00678 


20540 


020525 


JMP VCPL 


GO AROUND AGAIN FOR NEW SELECT 


00679* 










00680 


20541 


003400 


VCPL1 CCA 




00681 


20542 


000513 


STA VCP.FLAG 


GOOD VCP PRESENT ! ! ! 


00682 


20543 


000514 


STB VCPSC 


VCP SELECT CODE 


00683 


20544 


002404 


CLA.INA 


DIAGNOSE MODE 1 


00684 


20545 


102602 


OTA GR 




00685 


20546 


102502 


LIA GR 


GET RESPONSE 


00686 


20547 


021726 


AND IDM 


GET ID ONLY 


00687 


20550 


002003 


SZA.RSS 


IS TICK CARD??? (ZERO ID) 


00688 


20551 


000515 


STB ASFLG 


ASIC I/F, NOT INTELLIGENT CARD 
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00689» 
00690* 

00691 20552 002400 

00692 20553 102602 



I0N6 



CLA 
OTA GR 



CLEAR DIAGNOSE MODE 



00694* 

00695* 

00696* 

00697* 

00698* 

00699 

00700 

00701 

00702 

00703 
00704 

00705 
00706* 
00707 
00708 

00709 
00710 
00711 
00712 
00713 
00714 

00715 

00716 

00717* 

00718 

00719 

00720 

00721 

00722 

00723 

00724 

00725 

00726 

00727 



START MEMORY ACCESS FOR FIRST TIME 

CLEAR MEMORY IF IT WAS LOST DURING POWER DOWN 

AND CHECK MEMORY, BUT DON'T DESTROY ANY DATA IF NOT LOST 



20554 000215 MTST LDA MLOST 

20555 001200 RAL 

20556 000304 IOR VCPTFLG 

20557 000215 STA MLOST 

20560 021732 LDA B100340 

20561 102601 OTA CPUST 

20562 000302 STA PEADD 

LDB PFWDEF1 
STB PFW 

LWD1 
DEF .DO 
STC 4 
SMAP 
DEF .DO 
. .MBUF DEF MPBUF 

CLA 

LDB ..MBUF 

MPLP CPA B,I 
RSS 

JMP MTSTE 
INA 
INB 

CPA B40 
RSS 

JMP MPLP 
CCA 
STA MAP 



20563 021047 

20564 000235 

20565 

20566 021706 

20567 102704 
20570 

20571 021706 

20572 000370 

20573 002400 

20574 020572 

20575 000001 

20576 002001 

20577 020774 

20600 002004 

20601 006004 

20602 021723 

20603 002001 

20604 020575 

20605 003400 

20606 000366 



GET MLOST BIT 

PUT MLOST BIT IN SIGN 

SAVE MEMORY IF TESTING 

YES INDICATE MEMORY NOT LOST 

INDICATE IN MEMORY TEST 

NEGATIVE NUMBER FOR NO PARITY ERROR 

GET DEF TO PFW HANDLER FOR MEM TEST 
PUT IN CELL, ALL OTHER INTS ARE 

ILLEGAL FOR NOW 
POINT AT MAP ZERO 

TURN ON POWER FAIL INTERRUPTS 
GET MAP ZERO DATA 

TEST MAP ZERO FOR CORRECT INITIAL- 
IZATION 

GET POINTER TO MAP BUFFER 

IS MAP RIGHT? 

NO, GO REPORT ERROR 

NEXT ADDRESS AND VALUE 

DONE?? 

YES GO SET UP FOR FIRST 32K CHECK 

NO, GO AROUND LOOP AGAIN 
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00729* 






SET UP MAP FOR 


NEXT 32K AND CHECK PARITY SYSTEM 


00730* 










00731 


20607 


000366 


MTSTM LDA MAP 


CHECK IF END OF MEMORY 


00732 


20610 


002004 


INA 


MOVE TO NEXT BLOCK 


00733 


20611 


000366 


STA MAP 




00734 


20612 


021735 


CPA B1000 


IS IT END OF ADDRESSABLE MEMORY ? 


00735 


20613 


021072 


JMP MTST5 


YES 


00736 


20614 
20615 


105762 
027647 


JLY STMAP 


SET UP NEXT MAP 


00737* 






CHECK FIRST WORD TO SEE IF MEMORY THESE 


00738 


20616 


106705 


CLC 5 


DISABLE PARITY INTERRUPTS 


00739 


20617 


006400 


CLB 




00740 


20620 


000215 


LDA MLOST 


POINT AT FIRST WORD 


00741 


20621 


002021 


SSA.RSS 


WAS MEMORY LOST? 


00742 


20622 


020626 


JMP MTM1 


YES, SKIP LOAD 


00743* 










00744 


20623 002400 


CLA 




00745 


20624 




XLB1 '§A' 


READ A WORD 


00746 


20626 


007000 


MTM1 CMB 




00747 


20627 


002400 


CLA 




00748 


20630 




XSB1 «@A' 


COMPLEMENT AND STORE 


00749 


20632 




XSB1 '@A« 


STORE AGAIN FOR RAM POWER UP PROB 


00750 


20634 




XCB1 »@A' 


GET DATA BACK 


00751 


20636 


007001 


CMB.RSS 


COMPLEMENT DATA BACK 


00752 


20637 


021072 


JMP MTST5 


DIDNT STORE, END OF MEMORY 


00753* 










00754 


20640 


002400 


CLA 


ADDRESS ZERO AGAIN 


00755 


20641 




XSB1 'gA' 


STORE ORIGINAL DATA BACK 


00756 


20643 




XCB1 'gA' 


DID IT STORE? 


00757 


20645 


002001 


RSS 


YES, GO TEST NEXT 32K 


00758 


20646 


021072 


JMP MTST5 


FOUND END OF MEMORY 


00759* 










00760* 










00761 


20647 


021071 


MTST3 LDA PEDEF2 


POINT PE TRAP AT OTHER ENTRY 


00762 


20650 


000232 


STA PE 




00763 


20651 


000366 


LDB MAP 




00764 


20652 005100 


BRS 


MAP OVER 2 FOR WHICH 64K BLOCK 


00765 


20653 021736 


ADB B1400 


ADD START OF LOGGING RAM 


00766 


20654 


000503 


STB TEMPO 


SAVE ADDRESS 


00767 


20655 


000215 


LDA MLOST 


WAS MEMORY LOST?? 


00768 


20656 


002020 


SSA 




00769 


20657 




XLB1 '1700B' 


GET CURRENT DATA 


00770 


20661 


002400 


CLA 




00771 


20662 




XSA1 M700B 1 


GET DATA 


00772 


20664 


102105 


STF 5 


CHANGE PARITY SENSE 


00773 


20665 


021707 


XOR B1 


MAKE IT A ONE BIT ERROR 


00774 


20666 




XSA1 M700B' 


ESTABLISH BAD PARITY 
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00775 
00776 
00777 
00778 
00779 
00780 
00781 
00782 
00783 
00784 
00785 
00786 
00787 
00788 

00789 
00790 

00791 
00792 
00793* 

00795 

00796 

00797 

00798 

00799 

00800 

00801« 

00802 

00803 

00805 

00806* 

00807 

00808 

00809 

00810 

00811 

00812 

00813* 

00814 

00815 

00816 

00817 

00818 



20670 

20671 
20672 
20674 
20675 
20676 
20677 
20700 
20701 
20702 
20703 
20704 
20706 
20707 
20710 
20712 

20713 
20715 



103105 
102705 

002002 
020774 
000503 
002003 
020774 
000247 
002400 
000503 

102105 
021711 

103105 

020774 



20716 

20717 021706 

20720 

20722 021004 

20723 000232 

20724 102705 

20725 000215 

20726 002021 

20727 020740 



20730 
20731 
20732 
20733 
20734 
20735 
20737 



002400 
006400 
105745 
021744 



020607 



CLF 5 

STC 5 

XLA1 M700B' 

SZA 

JMP MTSTE 

LDA TEMPO, I 

SZA.RSS 

JMP MTSTE 

ISZ ECCCNT 

CLA 

STA TEMPO, I 

XSA1 M700B 1 

STF 5 

XOR B3 

XSA1 '1700B 1 

CLF 5 

XLA1 '1700B' 

JMP MTSTE 



MTST4 LWD1 

DEF .DO 
XSB1 '1700B 1 
LDA PEDEF1 
STA PE 
STC 5 

MTSTO LDA MLOST 
SSA.RSS 

JMP MTSTL 

CLA 
CLB 
LDX B77777 

MW11 

XLA1 '@A' 
JMP MTSTM 



20740 007400 MTSTL CCB 



20741 002400 
20742 

20744 007004 

20745 105745 

20746 021744 



00819 20747 



CLA 

XSB1 'gA' 

CMB.INB 

LDX B77777 

MW11 



REVERSE SENSE 

ENABLE PARITY 

READ BAD PARITY 

CORRECTED?? 

NO, ERROR 

GET ERROR LOG 

ERROR LOGGED AND CORRECTED?? 

IT DIDN'T SO ERROR 



CLEAR ERROR LOGGING RAM 
RESTORE GOOD PARITY 

MAKE TWO BIT ERROR 
STORE BAD PARITY 

READ BAD PARITY 

NO PARITY ERROR, BAD PARITY SYSTEM 



PUT DATA 1 MAP BACK LIKE IT WAS 

RESTORE GOOD PARITY TO LOCATION 1700 

PARITY ERRORS TO OTHER HANDLER NOW 
TURN PARITY INTS BACK ON AGAIN 

TEST A 32K BLOCK OF MEMORY 

IF MEMORY WAS LOST SKIP LOADING DATA 

MEMORY CONTENTS LOST 

CLEAR A AND B TO COPY DATA TO SELF 

COUNT FOR 32K 

READ EVERY LOCATION TO CHECK PARITY 
READ LAST LOCATION 

MAKE ALL ONES 

STORE IT IN FIRST LOCATION 
MAKE B ONE 
COUNT FOR 32K 

WRITE ONES IN EVERY LOCATION AND 
READ BACK 
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00820 


20750 








XLB1 »§A' 


READ THE LAST LOCATION 


00821 


20752 


006006 






INB.SZB 


IS IT ONES??? 


00822 


20753 


020774 






JMP MTSTE 


NO, MEMORY ERROR 


00823 


20754 


002400 






CLA 




00824 


20755 


006400 






CLB 




00825 


20756 








XSB1 '@A' 


STORE ZERO IN FIRST LOCATION 


00826 


20760 


006004 






INB 




00827 


20761 
20762 


105745 
021744 






LDX B77777 


COUNT FOR 32K 


00828 


20763 








MW11 


WRITE ZERO IN ALL LOCATIONS AND READ 


00829 


20764 








XLB1 '§A' 


READ LAST LOCATION 


00830 


20766 


006002 






SZB 


IS IT ZEROS 


00831 


20767 


020774 






JMP MTSTE 


NO, MEMORY ERROR 


00832 


20770 


000503 






LDA TEMPO, I 


GET ERROR LOG 


00833 


20771 


002002 






SZA 


ZERO STILL?? 


00834 


20772 


000250 






ISZ CORCNT 


ONE MORE CORRECTION 


00835 


20773 


020607 






JMP MTSTM 




00836 














00838* 


MEMORY ERROR 


ROUTINE 




00839* 


EXTENDED 


MEMORY 


ERROR DISPLAY 


00840* 














00841 


20774 


002400 


MTSTE 


CLA 




00842 


20775 
20776 


105762 
027647 






JLY STMAP 


PUT MAP ZERO BACK 


00843 


20777 


000366 






LDA MAP 


GET 32K BLOCK ADDRESS 


00844 


21000 


000246 






STA MSIZE 


SAVE MEMORY SIZE 


00845 


21001 


001727 






ALF.ALF 


PUT IT IN UPPER HALF 


00846 


21002 


021732 






IOR B1 00340 


ADD EXTENDED MEMORY SECTION 


00847 


21003 


021515 






JMP DSPLY 


GO DISPLAY IT 


00848* 














00849* 


PARITY INTERRUPT ROUTINE 




00850* 


A 


SOFT ERROR 


WILL NOT CAUSE 


CPU TO STOP 


00851* 














00852 


21004 


021005 


PEDEF1 DEF IPRTY 


DEF TO PARITY HANDLER 


00853 


21005 




IPRTY 


LWD1 


RESTORE DATA 1 MAP (KILLED BY 














INTERRUPT) 


00854 


21006 


021706 






DEF .DO 




00855 


21007 


000215 






LDA MLOST 


MEMORY LOST?? 


00856 


21010 


002021 






SSA.RSS 


NO, CHECK FOR SOFT ERROR 


00857 


21011 


020774 






JMP MTSTE 


YES, NO SOFT ERRORS IF MEMORY LOST 


00858* 














00859 


21012 


002400 






CLA 




00860 


21013 
21014 


105762 
027647 






JLY STMAP 


SET UP MAP TO FIRST 32K 


00861 


21015 


006400 






CLB 




00862 


21016 


000215 






STB MLOST 


MEMORY LOST NOW 


00863 


21017 








XSB1 »4« 


CLEAR RESTART CONDITION 
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00864 
00865 
00866 

00867 
00868 

00869 

00870 

00871 

00872 

00873 

00874 

00875* 

00876 

00877 
00878 

00879 
00880* 
00881 
00882 

00884* 

00885 

00886 

00887 

00888 

00889 

00890 

00891 

00892* 

00893 

00894 

00895 

00896 

00897 

00898 

00899 

00900 

00901 

00902* 

00903 

00904* 

00905 

00906 

00907 

00908 

00909 

00910 



21021 
21022 

21023 
21024 
21025 
21026 

21027 
21030 
21031 
21033 
21035 
21036 



000366 
000303 
105762 
027647 
102505 
021744 
000302 
007400 



006005 
020774 



21037 
21041 

21043 006002 

21044 020774 

21045 102705 

21046 020725 



21047 021050 
21050 106704 
21051 

21052 021706 

21053 000302 

21054 002020 

21055 021065 



21056 
21060 
21061 
21062 
21064 
21065 
21066 
21067 
21070 



021711 
102105 

103105 
102304 
021065 
107700 
020002 



LDA MAP 
STA PEMAP 
JLY STMAP 

LIA 5 

AND B77777 

STA PEADD 

CCB 

XSB1 'gA' 

XCB1 '@A' 

INB.RSS 

JMP MTSTE 



ig A t 
'@A' 



XSB1 

XLB1 

SZB 

JMP MTSTE 

STC 5 
JMP MTSTO 



SAVE BLOCK WITH PARITY ERROR 
SET MAP BACK LIKE BEFORE 



SAVE ADDRESS OF THIS PARITY ERROR 

RESTORE GOOD PARITY TO LOCATION 
READ IT BACK 

NO, A REAL MEMORY PROBLEM 

STORE ZEROS 

WAS A SOFT ERROR 

NO, REAL MEMORY PROBLEM 

TURN ON PARITY INTS AGAIN 
GO TEST THIS 32 K AGAIN 



POWER GOING DOWN 
PFWDEF1 DEF PDOWN 
PDOWN CLC 4 

LWD1 

DEF .DO 

LDA PEADD 

SSA 

JMP IPF 

XLA1 'SA 1 
XOR B3 
STF 5 
XSB1 'gA* 



POWER DOWN DEF 

TURN OF POWERFAIL INTERRUPTS 

RESTORE DATA 1 MAP 

YES CHECK IF THERE 

WAS A PARITY ERROR 
NO 



IPF 



CLF 
SFS 



JMP IPF 
CLC 0,C 
JMP START 



MAKE TWO BIT ERROR 

YES - CHANGE PARITY SENSE 

WRITE AN ERROR 

PUT PARITY BACK 

WAIT FOR POWER TO GO DOWN 

TURN OFF MACHINE 

DIDN'T GO ALL THE WAY SO RESTART 



21071 020716 PEDEF2 DEF MTST4 PARITY TEST ENTRY 



21072 000366 MTST5 LDA MAP 

21073 000246 STA MSIZE 

21074 002003 SZA.RSS 

21075 020774 JMP MTSTE 

21076 002400 CLA 

21077 000366 STA MAP 



GET LAST BLOCK NO. 
SAVE MEMORY SIZE 

GO SAY NO MEMORY ERROR 

RESET MAP ZERO 
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i^J-t 



A 1 



00911 

00912* 

00913 
00914 
00915 
00916 
00917 

00918 
00919 
00920 
00921 



21100 105762 

21101 027647 



21102 

21103 
21104 
21105 
21106 
21107 
21110 
21111 
21112 
21113 



103100 
102704 
021720 
021735 
105745 
021727 

003400 
000305 
000510 



00922 21114 021671 

00923 21115 000503 

00924 21116 002004 

00925 21117 000502 



JLY STMAP 



CLF 
STC 4 
LDA B20 
LDB B1000 
LDX B100 

MW10 

CCA 

STA TRAPFLAG 

STA NDCLR 

LDA IOLP 
STA TEMPO 
INA 
STA TEMPI 



RESET THINGS 
REENABLE ALSO 



SAVE TRAP CELL AREA OF MAIN MEMORY 



FLAG THAT TRAP CELLS ARE SWAPPED 
NEED TO PRESET IF BREAK DURING 

I/O TEST 
SET POINTER FOR I/O TABLE 



SAVE PAGE ADDRESS 



00927* 

00928* 

00929* 

00930* 

00931 

00932 

00933 

00934 

00935 

00936 

00937 

00938 

00939 

00940 

00941 

00942 

00943 
00944 
00945 
00946 
00947 
00948 
00949 
00950 
00951 
00952 

00953 
00954 
00955 
00956 



START OF 1-0 INTERFACE CHIP TESTS 



USE DIAG. MODE 1 TO BUILD A SELECT CODE TABLE 



21120 021747 

21121 102601 

21122 102102 

21123 002404 

21124 102602 

21125 002400 rtlOLO 

21126 000503 

21127 000503 [ 

21130 102502 ! 

21131 002003 r 

21132 021157 «£ 

21133 021725 

21134 000503 

21135 001665 

21136 021753? 

21137 002020] 

21140 021155* 

21141 000502 j 

21142 000503! 

21143 021125- 

21144 000000 

21145 005665 

21146 000503 

21147 021152 

21150 002004 

21151 021142 



5 (trt.nl. 



I0L1 



LDA B 177700 

OTA CPUST 

STF 2 

CLA.INA 

OTA 2 

CLA 

ISZ TEMPO 

STA TEMPO, I 

LIA 2 

SZA.RSS 

JMP IONO 

AND SCM 

STA TEMPO, I 

ELA.CLE.ERA 

ADA .N20 

SSA 

JMP I0E4 

LDA TEMPI 

CPA TEMPO 

JMP IOLO 

LDB A, I 

ELB.CLE.ERB 

CPB TEMP 0,1 

JMP *+3 

INA 

JMP I0L1 



INDICATE IN I/O INTERFACES 

INSURE GLOBAL REGISTER IS OFF 
SET TEST MODE 1 (PRIORITY RESPONSE) 
GIVE MODE TO CHIPS 
IN CASE OF NO RESPONSE 

GET TABLE POINTER 

GET SELECT CODE 

ANY SELECT CODE 

NO END-OF-IO CHIPS 

YES - USE SELECT CODE ONLY s<^ ,o. 

PUT IT IN TABLE 

SUBTRACT 20B 

IS IT A VALID SELECT CODE? 

NO - INDICATE ERROR 4 ON LEDS 

CHECK FOR DUPLICATE SELECT CODES 

END OF TABLE? 

YES MOVE TO NEXT 10 CHIP 

GET SC FROM TABLE 

IS IT THE SAME AS THE NEW SC? 

YES - DUPLICATE SELECT CODES ERROR ; 

NO DO NEXT ENTRY 
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00957* 
00958 

00959 
00960 
00961 
00962 

00964* 

00965* 

00966* 

00967 

00968 

00969 

00970 

00971 
00972 

00973 
00974 
00975 
00976 
00977 
00978 
00979 
00980 
00981 
00982 
00983 
00984 
00985 
00986 
00987 
00988 
00989 
00990 
00991 

00993* 

00994* 

00995 

00996 

00997 

00998 

00999 

01000 

01001 

01002 

01003 

01004 

01005 



21152 

21153 
21154 

21155 
21156 



000205 
021711 
021513 
021712 
021513 



I0E4 



STB 


SAVEB 


LDA 


B3 


JMP 


IOER 


LDA 


B4 


JMP 


IOER 



DUPLICATE SELECT CODE IN B REGISTER 



CHECK IF ANY SELECT CODES DID NOT RESPOND TO MODE 1 
IF THEY DIDN'T PRIORITY CHAIN IS BROKEN 



21157 
21160 
21161 
21162 

21163 
21164 

21165 
21166 
21167 
21170 
21171 
21172 
21173 
21174 
21175 
21176 
21177 
21200 
21201 
21202 
21203 
21204 
21205 
21206 
21207 



102102 IONO 

002400 

102602 

021717 

000477 

000477 f>I0L2 

000502 

000000 



006003 
021176 
005665 
000477 
021164 
002004 
021166 
000477 
021727 
021210 
102602 
002400 
102502 
002003 
021164 
021710 
021513 



I0L3 



I0N1 



STF 2 
CLA 
OTA 2 
LDA B17 
STA PO.CT 
ISZ PO.CT 
LDA TEMPI 
LDB A, I 
SZB.RSS 

-JMP I0N1 
ELB,CLE,ERB 

-CPB PO.CT 

' JMP I0L2 

^INA 
JMP I0L3 
LDA PO.CT 
CPA B100 
JMP I0N2 
OTA 2 
CLA 
LIA 2 
SZA.RSS 
JMP I0L2 
LDA B2 
JMP IOER 



CHECK INDIVIDUAL I/O CHIPS 

21210 000502 I0N2 LDB TEMP 1,1 

21211 002400 CLA 

21212 006003 SZB.RSS 

21213 021513 JMP IOER 

21214 021275 LDA IOIDEF 

21215 000242 STA INTIO 

21216 000502 LDB TEMPI 

21217 000503 STB TEMPO 

21220 000503 I0L4 LDB TEMPO, I 

21221 006103 CLE, SZB.RSS 

21222 021332 JMP I0N3 



INSURE GLOBAL REGISTER IS OFF 
TURN OFF DIAGNOSE MODE 

START WITH FIRST SELECT CODE -1 

MOVE TO NEXT SC 
CHECK IF IN TABLE 
GET SC FROM TABLE 
END OF TABLE? 
YES 

NO IS SC IN TABLE? 

YES 

NO MOVE TO NEXT ENTRY 

GET SC 

END OF SC'S 

YES 

NO TRY IT 



DID IT COME BACK? 
NO MOVE TO NEXT ONE 
YES - INDICATE ERROR 2 



START 10 CHECK WITH FIRST ENTRY 

WERE THERE ANY ENTRIES? 

NO 10 CHIPS PRESENT ERROR 

SET UP DEF FOR TRAP CELL JUMP 

GET SC TABLE POINTER 

SET POINTER 

GET SELECT CODE 

END OF TABLE? 

YES CHECK FOR BREAK ENABLE 
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01006* 
01007 

01008 

01009* 

01010* 

01011* 

01012 

01013 

01014 

01015 

01016 

01017 

01018 

01019 

01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01028 
01029 

01030 

01031 
01032 

01033 
01034 
01035 
01036 
01037 
01038 
01039 
01040 
01041 
01042 
01043 
01044 
01045 
01046 

01047* 



21223 105762 

21224 021546 

21225 021512 



JLY CHKIO 



JMP IOESC 



CHECK DMA AND INTERRUPTS 



21226 
21227 
21230 
21231 
21232 
21233 
21234 
21235 
21236 
21237 
21240 
21241 
21242 
21244 
21245 
21247 
21250 
21252 
21253 

21254 
21255 
21256 
21257 
21260 
21261 
21262 
21263 
21264 
21265 
21266 

21267 
21270 
21271 
21272 

21273 
21274 



000503 
021724 
103602 
021675 
000000 
021720 
021720 
105745 
021727 

021330 
102620 

021327 

021331 

021715 
102602 

103720 
102324 
021512 
102521 
021327 
002001 
021512 
102523 
021331 
002001 
021512 

021711 
102602 
102100 
002006 
021272 
021512 



LDA TEMPO, I 
AND B77 
OTA GR.C 
LDB IOIJMP 
STB A.I 
LDA B20 
LDB B20 
LDX B100 

MW01 

LDA DMACF 
OTA 2 OB 
XSA1 'DMA+1' 
LDA DMAQD 
XSA1 'DMA' 
LDA DMAQD+2 
XSA1 'DMA+2' 
LDA B7 
OTA 2 

STC 20B.C 

SFS 24B 

JMP IOESC 

LIA 21B 

CPA DMAQD 

RSS 

JMP IOESC 

LIA 23B 

CPA DMAQD+2 

RSS 

JMP 



IOESC 



LDA B3 
OTA 2 
STF 
INA.SZA 
JMP *-1 
JMP IOESC 



CHECK I/O CHIP ON THIS CARD 
* DISPLAY SELECT CODE WITH ERROR 



GET SELECT CODE 
MASK TO SELECT CODE 
SET GLOBAL REGISTER 

PUT I/O INTERRUPT JUMP IN TRAP CELL 



UPDATE TRAP CELL AREA FOR THIS 
INTERRUPT 

INCLUDE DMA ADDRESS 

PASS IT TO SELF CONFIGURATION REG 

AND PLACE IN TRIPLET 
GET DMA CONTROL WORD 

AND COUNT 

DISABLE SRQ INTERRUPTS 

DIAGNOSE MODE 7M ! MUST CLC 0,C TO 

GET OUT OF THIS MODE 
DO SELFCONFIGURATION 
DID IT COMPLETE 
NO SO ERROR 
CHECK CONTROL WORD 



BAD SO ERROR 
CHECK COUNT 



NO GOOD SO ERROR 
NOW USE DIAG. MODE 3 

TURN ON INTERRUPTS 
WAIT FOR IT 

NO GOOD 
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01049 


21275 


021276 


IOIDEF DEF IOINT 


DEF FOR TRAP CEEL 


01050 


21276 




IOINT 


LWD1 


PUT DATA 1 MAP BACK 


01051 


21277 


021706 




DEF .DO 




01052 


21300 


102504 




LIA 4 


CHECK CENTRAL INTERRUPT 


01053 


21301 


106502 




LIB 2 


AGAINST GLOBAL REGISTER 


01054 


21302 


000001 




CPA B 


WELL? 


01055 


21303 


002001 




RSS 




01056 


21304 


021512 




JMP IOESC 


CARD ERROR 


01057 


21305 


021330 




LDB DMACF 




01058 


21306 


021713 




ADB B5 


MOVE TO CONFIGURATION ADDRESS 


01059 


21307 






XCB1 'DMA+2' 


DID IT STORE 


01060 


21311 


102224 




SFC 24B 


AND DID IT TURN OFF 


01061 


21312 


021512 




JMP IOESC 


NO SO ERROR 


01062 


21313 


102523 




LIA 23B 


CHECK COUNT IS ZERO 


01063 


21314 


002002 




SZA 




01064 


21315 


021512 




JMP IOESC 




01065 


21316 


107720 




CLC 20B.C 


INSURE DMA IS OFF 


01066 


21317 


107721 




CLC 21B.C 




01067 


21320 


000503 




LDA TEMPO, I 


GET SELECT CODE 


01068 


21321 


021724 




AND B77 




01069 


21322 


021674 




LDB ILIJMP 


PUT TRAP CELL BACK TO ILLEGAL 
INTERRUPT 


01070 


21323 


000000 




STB A, I 




01071 


21324 


000503 




ISZ TEMPO 


MOVE TO NEXT ENTRY 


01072 


21325 


000204 




ISZ SAVEA 


COUNT THIS I/O CARD 


01073 


21326 


021220 




JMP I0L4 


AND DO IT 


01074* 












01075 




001760 


DMA 


EQU 1760B 




01076 


21327 


000200 


DMAQD 


OCT 200 




01077 


21330 


001760 


DMACF 


DEF DMA 




01078 


21331 


177775 




DEC -3 




01081* 


CHECK THAT ONLY 


ONE INTF. HAS 


. A BREAK ENABLE 


01082* 


NONE IS OK 






01083* 












01084 


21332 


021710 


ION3 


LDA B2 


USE DIAGNOSE MODE 2 


01085 


21333 


000502 




LDB TEMPI 


SET POINTER FOR SELECT CODE 


01086 


21334 


000503 




STB TEMPO 




01087 


21335 


006400 




CLB 




01088 


21336 


000501 




STB TEMP 2 


CLEAR SC FLAG 


01089 


21337 


102102 




STF 2 


TURN OFF GLOBAL REGISTER 


01090 


21340 


102602 




OTA 2 




01091 


21341 


002400 


IOL5 


CLA 


CLEAR IN CASE OF NO RESPONSE 


01092 


21342 


102502 




LIA 2 


GET PARAMETERS 


01093 


21343 


002002 




SZA 


DONE WITH I 


01094 


21344 


021350 




JMP I0N4 


NO 


01095 


21345 


102602 




OTA 2 


TURN OFF DIAG.MODE 2 


01096 


21346 


006400 




CLB 


NO ERRORS 
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01097 


21347 


021364 




JMP PTSTX 


YES NOW CHECK IF VCP OR LOADER 


01098 


21350 


001710 


I0N4 


ALF.SLA 


CHECK BREAK ENABLE BIT 


01099 


21351 


021354 




JMP *+3 




01100 


21 352 


000503 




ISZ TEMPO 


MOVE TO NEXT ONE 


01101 


21353 021341 




JMP I0L5 




01102 


21354 002740 




CLA.SEZ.CCE 


WAS THERE A PREVIOUS ONE 


01103 


21355 


021361 




JMP I0EN4 


YES SO ERROR 1 


01104 


21356 


000503 




LDB TEMPO 


NO OK SAVE THIS ONE 


01105 


21357 


000501 




STB TEMP 2 




01106 


21360 


021341 




JMP I0L5 


NOW TRY NEXT ONE 


1 1 07* 












01108 


21361 


000513 


I0EN4 


STA VCP.FLAG 


NO VCP IF TWO BREAK ENABLES 


01109 


21362 


002004 




INA 




01110 


21363 021513 




JMP IOER 


DISPLAY ERROR 1 


01112* 












01113* 


PRETEST EXIT TO 


VFP 




01114* 


PRETEST IS FINISHED 




01115* 












01116 


21364 


105762 


PTSTX 


JLY .PSET 


CLEAR I/O SYSTEM FROM DIAGNOSE 




21365 


021633 






MODE 7 


01117 


21366 


021776 




LDA . .ENT 




01118 


21367 


102603 




OTA 3 


INITIALIZE BREAK ENTRY POINT 


01119 


21370 


103603 




OTA 3,C 




01120 


21371 


000305 




LDA TRAPFLAG 


CHECK VCP TEST 


01121 


21372 


002003 




SZA.RSS 




01122 


21373 


021401 




JMP PTS2 




01123 


21374 


021735 




LDA B1000 




01124 


21375 


021720 




LDB B20 




01125 


21376 
21377 


105745 
021727 




LDX B100 




01126 


21400 






MW01 l 


RESTORE TRAP CELL AREA OF MAIN Ml 


01127 


21401 


000304 


PTS2 


LDA VCPTFLG 


CHECK VCP TEST 


01128 


21402 


002020 




SSA 




01129 


21403 


021471 




JMP PTS1 


IF TEST DONT CHECK SWITCHES 


01130* 












01131 


21404 


102501 




LIA CPUST 


GET SWITCHES 


01132 


21405 


001727 




ALF.ALF 




01133 


21406 


021715 




AND B7 


SELF TEST LOOP?? 


01134 


21407 


002003 




SZA.RSS 




01135 


21410 


020002 




JMP START 


YES, GO AROUND AGAIN 


01136* 












01137 


21411 


000244 




LDB DISPLAY 


GET SELF TEST STATUS 


01138 


21412 


006002 




SZB 


DID SELF TEST PASS 


01139 


21413 


021471 




JMP PTS1 


NO, MUST GO TO VCP 


01140* 












01141 


21414 


021712 




CPA B4 


LOOP ON SELF TEST 


01142 


21415 


020002 




JMP START 


YES, GO AROUND AGAIN 



MEMORY 
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01143* 

01144 

01145 

01146* 

01147* 

01148* 

01149* 

01150* 

01151* 

01152 

01153 

01154* 

01155 

01156 

01157 

01158* 

01159 

01160 

01161 

01162* 

01163 

01164 

01165 

01166 

01167* 

01168 

01169* 

01170* 

01171* 

01172 

01173 

01174* 

01175 

01176 

01177* 

01178 

01179 

01180* 

01181 

01182* 

01183 

01184 

01185 

01186 
01187 
01188* 
01189 



21416 021710 

21417 021437 



CPA B2 JMP TO USER ROM?? 
JMP ..USER, I YES, GO 



IF USER WANTS TO CONTINUE TO VCP MUST ENTER AT VCP IN PAGE 1 
NOTE THAT USER ROM WILL NOT BE ENTERED IF SELF TEST FAILS 

NOW SEE IF CAN AUTO RESTART 



21420 002011 

21421 021440 

21422 000215 

21423 006021 

21424 021440 

21425 

21427 006003 

21430 021440 

21431 102702 

21432 002400 

21433 102601 
21434 



SLA.RSS 
JMP PTSO 

LDB MLOST 
SSB,RSS 
JMP PTSO 

XLB1 '4' 
SZB.RSS 
JMP PTSO 

STC 2 

CLA 

OTA CPUST 



AUTO RESTART NOT ENABLED 

CHECK MEMLOST 

SKIP IF MEMORY SAVED 

MEMORY LOST, GOTO VCP 

GET TRAP CELL FOR AUTO RESTART 
IS INSTRUCTION THERE? 
NO INSTRUCTION, GOTO VCP 

ENABLE BREAK 

INDICATE USER PROGRAM EXECUTING 



XJMP '.DO',^' JUMP TO LOCATION 4 IN SYSTEM MAP 
21437 030002 ..USER DEF 30002B START OF USER ROM 
CANT AUTO RESTART, SEE IF MUST AUTOLOAD 



21440 021715 PTSO CPA B7 



DISC LOADER 



21441 021455 

21442 021711 

21443 021456 

21444 021713 

21445 021447 

21446 021471 



JMP .PTDC.I GO DO DISC LOADR 



CPA B3 
JMP PTDS 

CPA B5 
JMP PTRM 

JMP PTS1 



DS LOADER 

PROM LOADER 

NO, LOADR, GO TO VCP 



21447 021705 PTRM LDA .RMSC 

21450 000264 STA SCETC 

21451 104600 .JLB RMLDR 

21452 026364 

21453 021465 JMP .MRBT.I 

21454 021466 JMP PTLER 

21455 026503 .PTDC DEF PTDC 



DEFAULT SELECT CODE 
LOAD FROM ROM CARD 

GO START IT UP 
GO REPORT ERROR 

DISC LOADER 
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01190* 












01191 


21456 


021704 


PTDS 


LDA .DSSC 


DS AUTOBOOT 


01192 


21457 


000264 




STA SCETC 


SAVE DEFAULT SELECT CODE ETC 


01193 


21460 
21461 


104600 
025040 




.J LB DSLD 


LOAD FROM DS 


01194 


21462 


002001 




RSS 




01195 


21463 


021466 




JMP PTLER 


ERROR, GOTO VCP 


01196 


21464 


021465 




JMP .MRBT, I 




01197* 












01198 


21465 


024072 


.MRBT 


DEF MRBT 


GO SET UP BOOT PARAMS 


01199* 












01200 


21466 


021470 


PTLER 


LDA DSCER 


DISC ERROR CODE 


01201 


21467 


021515 




JMP DSPLY 




01202* 












01203 


21470 


100200 


DSCER 


OCT 100200 




01204* 












01205* 












01206* 


GO TO VCP 


IF POSSIBLE 




01207* 












01208 


21471 


000513 


PTS1 


LDA VCP. FLAG 


IS THERE A VCP?? 


01209 


21472 


002003 




SZA.RSS 




01210 


21473 


021501 




JMP NVCP 


NO, NOTHING MORE TO DO 


01211* 












01212 


21474 


102702 




STC 2 


ENABLE BREAK 


01213 


21475 


021715 




LDA B7 




01214 


21476 


102601 




OTA CPUST 


SAY IN FRONT PANEL 


01215 


21477 


021500 




JMP *+1,I 




01216 


21500 


022000 




DEF VFP 




01217* 












01218* 












01219 


21501 


021713 


NVCP 


LDA B5 


ERROR 5, NO VCP 


01220 


21502 


021513 




JMP IOER 





01222* 

01223* 

01224 

01225 

01226* 

01227* 

01228 

01229 

01230 

01231 

01232 



ERROR REPORTING TO PROCESSOR LEDS 



1503 021733 

1504 021515 



1505 
1506 
1507 
1510 
1511 



021506 
102504 
001727 
021731 
021515 



PROER LDA B1 70360 
JMP DSPLY 



ILDEF 
ILINT 



DEF ILINT 
LIA 4B 
ALF.ALF 
IOR B100300 
JMP DSPLY 



INDICATE PROCESSOR ERROR 



POINT TO ILLEGAL INT ROUTINE 
GET CENTRAL INTERRUPT REGISTER 
PUT IT IN DATA 
INDICATE ILLEGAL INTERRUPT 
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01233* 

01234 21512 000503 

01235 21513 001727 

01236 21514 021731 



IOESC LDA TEMPO, I 
IOER ALF, ALF 

IOR B1 00300 



GET SELECT CODE FOR DISPLAY 
PUT DATA IN UPPER HALF 
INDICATE I/O TEST ERROR 



01238* 

01239* 

01240* 

01241» 

01242 

01243* 

01244 

01245 

01246 

01247 

01248 

01249 

01250 

01251 

01252 

01253 

01254 

01255 

01256 

01257 

01258 

01259* 

01260 

01261 

01262 

01263 

01264 

01265* 

01266 

01267 

01268 

01269 



DISPLAY LOWER BYTE (SECTION) 
THEN UPPER BYTE (DATA ) 
THEN BACK TO LOWER BYTE 

21515 000244 DSPLY STA DISPLAY SAVE DATA AND SECTION 



21516 
21517 
21520 
21521 
21522 
21523 
21524 
21525 
21526 
21527 
21530 
21531 
21532 
21533 
21534 



000244 
002300 
021734 
102601 
021753 
000000 
021523 
000001 
021523 
002041 
021535 
000244 

001767 
021755 
021520 



21535 102501 

21536 001727 

21537 021715 

21540 002003 

21541 021067 

21542 000513 

21543 002002 

21544 021364 

21545 021516 



POCOO LDA 
CCE 
AND 
OTA 
LDB 
ISZ 
JMP 
ISZ 
JMP 
SEZ 
JMP 
LDA 
ALF 
IOR 
JMP 



DISPLAY 

B377 

CPUST 

.N20 

A 

*-1 

B 

*-3 
,RSS 

PRTLP 

DISPLAY 
, CLE, ALF 

BIT7 

P0CO0+2 



SET TO DO SECOND PART 



PRTLP LIA CPUST 
ALF, ALF 
AND B7 
SZA.RSS 
JMP IPF+2 



UPPER HALF DATA 
CHECK IF LOOP 



99 



YES LOOP ON ERROR 



LDA VCP.FLAG IS THERE A VCP?? 

SZA 

JMP PTSTX GO TO VCP 

JMP POCOO 
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01271* 

01272» 

01273* 

01274* 

01275* 

01276* 

01277 

01278 

01279 

01280 

01281 

01282 

01283 

01284 
01285 
01286 
01287 
01288 
01289 
01290 
01291 
01292 
01293 
01294 
01295 
01296 
01297 

01299 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 
01 308 
01309 
01310 

01311 
01312 

01313 
01314 
01315 



CHECK AN I/O CARD. B HAS SELECT CODE TO CHECK 



21546 
21547 
21550 
21551 
21552 
21553 
21554 
21555 
21556 
21557 
21560 
21561 
21562 
21563 
21564 
21565 
21566 
21567 
21570 
21571 
21572 
21573 

21574 
21575 
21576 
21577 
21600 
21601 
21602 
21603 
21604 
21605 
21606 
21607 
21610 
21611 
21612 
21613 
21614 



005623 
107602 
002400 
102502 
000001 
002001 
105772 
000000 
002041 
021574 
021754 
102230 
021570 
000001 
021561 
000000 
021561 
021554 
103530 
002020 
000010 
021554 

021760 

102623 
001300 
102624 
007400 
102523 
106524 
005200 
000001 
006401 
021554 
102624 
001300 
102623 
102524 
106523 
005200 



CHKIO ELB.RBR 
OTB GR,C 
CLA 

LIA GR 
CPA B 
RSS 

CHBR JPY 

SEZ.RSS 
JMP ION. 2 
LDA .N40 
SFC DATA 
JMP I0N.1 
ISZ B 
JMP *-3 
ISZ A 
JMP *-5 
JMP CHBR 
ION. 1 LIA DATA.C 
SSA 
SLA 
JMP CHBR 



ION. 2 LDA 
OTA 
RAR 
OTA 
CCB 
LIA 
LIB 
RBL 
CPA 
CLB, 
JMP 
OTA 
RAR 
OTA 
LIA 
LIB 
RBL 



ALTO 
23B 

24B 

23B 
24B 

B 

RSS 
CHBR 
24B 

23B 
24B 
23B 



SAVE SELF TEST FLAG 

SET GLOBAL REGISTER 

CLEAR IN CASE OF NO RESPONSE 

GET GLOBAL REGISTER 

DID IT COME BACK ? 

YES 

NO ERROR 

DOES THIS INTERFACE HAVE SELF TEST 
NO - THEN DON'T WAIT 
YES THEN WAIT 10 SECS FOR SELF TEST 
!!!!!!!!!! 



CLEAR THE FLAG 



TIME OUT SO ERROR 
GET SELF TEST STATUS & 
WAS IT GOOD? 

NO SO ERROR 



USE ALTERNATING PATTERN 

TO CHECK I/O CHIP BUS UPPER 

AND OPPOSITE PATTERN 
FOR I/O CHIP BUS LOWER 

CLEAR IN CASE NO RESPONSE 

READ PATTERNS BACK 



DO PATTERNS AGREE 

YES 

NO - I/O CHIP BUS ERROR 

REVERSE PATTERN AND 

CHECK BUS AGAIN 
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01316 


21615 


000001 


CPA B 


01317 


21616 


102230 


SFC DATA 


01318 


21617 


021554 


JMP CHBR 


01319 


21620 


102130 


STF DATA 


01320 


21621 


102230 


SFC DATA 


01321 


21622 


102330 


SFS DATA 


01322 


21623 021554 


JMP CHBR 


01323 


21624 


103130 


CLF DATA 


01324 


21625 


102330 


SFS DATA 


01325 


21626 


102230 


SFC DATA 


01326 


21627 


021554 


JMP CHBR 


01327* 








01328 


21630 


106723 


CLC 23B 


01329 


21631 


105772 


JPY 1 




21632 


000001 




01330* 








01331* 








01332 


21633 


104600 


.PSET .JLB ENDVCP 




21634 


023533 




01333 


21635 


107700 


CLC 0,C 


01334 


21636 


021746 


LDA B 100000 


01335 


21637 


000211 


STA SAVEQ 


01336 


21640 


002400 


CLA 


01337 


21641 


000214 


STA SAVEW 


01338 


21642 000366 


STA MAP 


01339 


21643 000200 


STA SAVE I 


01340 


21644 


000206 


STA SAVEG 


01341 


21645 




LWD1 


01342 


21646 


000000 


DEF 


01343 


21647 


021650 


JMP *+1,I 


01344 


21650 


027647 


DEF STMAP 


01345* 








01346* 


UIT ] 


HANDLER 


TO IGNORE UITS FOR 


01347* 








01348 


21651 


000227 


UITINT STA PETMP 


01349 


21652 


000214 


LDA SAVEW 


01350 


21653 


021722 


AND .B37 


01351 


21654 




LWD1 


01352 


21655 


000000 


DEF A 


01353 


21656 


000227 


LDA PETMP 


01354 


21657 


000237 


JMP UITRTN.I 


01355* 









DO PATTERNS AGREE? 
YES CHECK FLAG 
BUS OR FLAG ERROR 
SET THE I/O FLAG 
DID IT GET SET? 

NO I/O FLAG ERROR 

NOW CLEAR IT 

DID IT GET CLEARED 

NO I/O FLAG ERROR 

RESET DMA MACHINE 
P+3 (GOOD) RETURN 



EXIT FROM VCP MODE 

BLOW AWAY I/O SYSTEM 

CS MODE IS OFF! 

CLEAR WMAP 

INTS OFF 
GLOBAL REG OFF 
POINT DATA 1 MAP 

SET UP MAP ZERO 
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01356* 
01357* 
01358* 

01359* 

1 360* 

01361 

01362 

01363 

01364 

01365 

01366 

01367 

01368 

01369 

01370* 

01372* 

01373* 
01374* 
01375* 
01376 

01377 
01378 
01379 
01380 
01381 
01382 

01383 

01384 

01385 

01386 

01387 

01388 

1 389* 

01390 

01391 

01392 

01393 

01394 

01395 

01396 

01397 

01398 

01399 

01400 

01401 

01402 

01403 



PARITY ERROR HANDLER FOR USER INTERFACE. IT SETS PEFLAG 

SO THAT PARITY ERROR WILL BE OUTPUT BEFORE NEXT COMMAND ACCEPTED 



21660 000227 PEINT 

21661 000214 

21662 021722 
21663 

21664 000000 

21665 000227 

21666 102705 

21667 000243 
21670 000230 



STA PETMP 
LDA SAVEW 
AND .B37 
LWD1 
DEF A 
LDA PETMP 
STC 5 

ISZ PEFLAG 
JMP PERTN.I 



CONSTANTS 



IOLP 
21671 
21672 
21673 
21674 
21675 
21676 
21677 
21700 
21701 
21702 
21703 
21704 
21705 

21706 
21707 
21710 
21711 
21712 
21713 
21714 
21715 
21716 
21717 
21720 
21721 
21722 
21723 



DEF P0.CT-77B-P0-1 
000370 IOLP DEF 



000233 
000232 
000234 
000242 
000235 
000234 
000236 
000241 
000237 
021651 
000024 
000022 

000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000011 
000017 
000020 
000024 

000037 
000040 



MPBUF 
TBGJMP JMP TBG.I 
PEJMP JMP PE,I 
ILIJMP JMP ILI.I 
IOIJMP JMP INTIO.I 
PFWJMP JMP PFW.I 
ILJMP JMP ILI.I 
MPTJMP JMP MPT, I 
UITJMP JMP UIT.I 
UITJSB JSB UITRTN 
UIT1 DEF UITINT 
.DSSC OCT 0024 
.RMSC OCT 22 



.DO 

B1 

B2 

B3 

B4 

B5 

B6 

B7 

B11 

B17 
B20 
B24 

.B37 
B40 



OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 17 

OCT 20 

OCT 24 

OCT 37 

OCT 40 




1 
2 
3 
4 
5 
6 
7 
11 



SAVE A REGISTER 

SET DATA ONE MAP BACK LIKE BEFORE 



RESTORE A REGISTER 

TURN PARITY INTERRUPTS BACK ON 

GO GET ANOTHER COMMAND 



PLACE FOR I/O SELECT CODE TABLE 
TRAP CELL INSTRUCTION FOR TBG 
it ii ii .t parity 



I/O TRAP 
ETC. 



CELL CONTENTS 
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01 104 


21724 


000077 


B77 


OCT 77 






01405 


21725 


100077 


SCM 


OCT 100077 






01406 


21726 


077000 


IDM 


OCT 077000 


ID ONLY 


NO SC OR 


01407 


21727 


000100 


B100 


OCT 100 






01408 


21730 


000200 


B200 


OCT 200 






01409 


21731 


100300 


B1 00300 OCT 100300 






01410 


21732 


100340 


B1 00340 OCT 100340 






01411 


21733 


170360 


B170360 OCT 170360 






01412 


21734 


000377 


B377 


OCT 377 






01413 


21735 


001000 


B1000 


OCT 1000 






01414 


21736 


001400 


B1400 


OCT 1400 






01415 


21737 


003004 


B3004 OCT 3004 






01416 


21740 


006412 


B6412 


OCT 6412 






01417 


21741 


007777 


B7777 


OCT 7777 






01418 


21742 


076000 


B76K 


OCT 76000 






01419 


21743 


100000 


B100K 


OCT 100000 






01420 


21744 


077777 


B77777 OCT 77777 






01421 


21745 


100024 


B1 00024 OCT 100024 


DS SELECT CODE I 


01422 


21746 


100000 


B1 00000 OCT 100000 


CS OFF 


BIT 


01423 


21747 


177700 


B1 77700 OCT 177700 






01424 


21750 


177777 


B1 77777 OCT 177777 






01425 


21751 


177777 


M1 


OCT -1 






01426 


21752 


177776 


.N2 


OCT -2 






01427 


21753 


177760 


.N20 


OCT -20 






01428 


21754 


177740 


• N40 


OCT -40 






01429 


21755 


000200 


BIT7 


OCT 200 






01430 


21756 


102700 


NOVCP 


OCT 102700 


NO VCP 


ERROR CODl 


01431 


21757 


021760 


DALTO 


DEF ALTO 






01432 


21760 052525 


ALTO 


OCT 052525 






01433 


21761 


125252 


ALT1 


OCT 125252 






01434 


21762 


104447 


SRGP1 


OCT 104447 


1000100100100111 


01435 


21763 


114040 


SRGP2 


OCT 114040 


1001100000100000 


01436 


21764 


000100 


SRGP3 


OCT 000100 


0000000001000000 


01437 


21765 


076310 


AEAUS 


OCT 076310 






01438 


21766 


021765 


BLBT 


DEF AEAUS 


DEF FOR 


LBT TEST 


01439 


21767 


130272 


BEAUS 


OCT 130272 






01440 


21770 


107714 


ASR.O 


OCT 107714 






01441 


21771 


041300 


ASR.1 


OCT 041300 






01442 


21772 


143746 


MU2 


OCT 143746 






01443 


21773 


123746 


DV4 


OCT 123746 






01444 


21774 


126760 


RESUA 


OCT 126760 






01445 


21775 


006606 


RESUB 


OCT 006606 






01446 


21776 


022114 


..ENT 


DEF ENTRY 






01447* 














01448 




021777 


EOPO 


EQU • 


END OF 


PAGE 


01449* 















REV. 



SELF TEST ENABLE 
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01451* 

01452* ENTRY HERE ON POWERUP AFTER MICROCODED SELF TEST & PRETEST 

01453* 

01454» USER ROM SHOULD ENTER HERE FOR VCP USER INTERFACE 

01455* DISPLAY HAS SELF TEST ERROR CODE 

01456* 

01457 22000 ORG EPROM+2000B 
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01459* 

01460* 

01461* 

01462 

01463 

01464 

01465 

01466 

01467 

01468* 

01469 

01470 

01471 
01472 
01473 

01474 
01475 
01476 
01477 

01478* 

01479* 

01480* 

01481 

01482 

01483 

01484* 

01485 
01486 

01487 
01488 

01489 
01490 

01491* 
01492 
01493 
01494 



ENTRY HERE ON POWERUP AFTER MICROCODE SELF TEST & PRETEST 



022000 

22000 104600 

22001 024411 

22002 104600 

22003 024270 

22004 000244 

22005 002003 

22006 022037 



P1 
VFP 



22007 
22010 
22011 
22012 

22013 
22014 
22015 
22016 
22017 
22020 
22021 
22022 



023766 

104600 

024245 
000244 

023654 
104600 
024344 
000244 
001727 
023654 
104600 
024344 



EQU * 
.JLB CI.IZ 

.JLB .ENQAK 

LDA DISPLAY 
SZA.RSS 
JMP VFP.O 

LDA SELFERR 
.JLB PUTS 

LDA DISPLAY 
AND ..B377 
.JLB OUTN 

LDA DISPLAY 
ALF.ALF 
AND ..B377 
.JLB OUTN 



CHECK FOR LOADER ERRORS 



22023 000265 

22024 002003 

22025 022037 



22026 
22027 
22030 
22031 
22032 
22033 
22034 
22035 
22036 



023746 
104600 
024245 
023614 
104600 
024245 
000265 
104600 
024312 



22037 000302 

22040 002020 

22041 022057 



LDA LERR 
SZA.RSS 
JMP VFP.O 

LDA CRLF 
.JLB PUTS 

LDA .LDER 
.JLB PUTS 

LDA LERR 
.JLB OUTD 



VFP.O LDA PEADD 
SSA 
JMP VFP.1 



SET GLOBAL REGISTER 
DO ENQ ACK OR SEND BUFFER 
GET SELF TEST ERROR CODE 
NO ERRORS IN SELF TEST 
OUTPUT ERROR MESSAGE 



LOW BYTE 

OUTPUT ERROR CODE 



OUTPUT HIGH BYTE OF ERROR CODE 



NO LOADER ERRORS 
OUTPUT CRLF 

OUTPUT LOADER ERROR MESSAGE 

OUTPUT ERROR NUMBER 

ANY SOFT ERRORS??? 
NO, GO TO FRONT PANEL 
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01495* 










01496 


22042 


023767 


LDA SOFTERR 


GET SOFT ERROR MESSAGE 


01497 


22043 
22044 


104600 
024245 


.JLB PUTS 


OUTPUT IT 


01498 


22045 


000303 


LDA PEMAP 




01499 


22046 


000302 


LDB PEADD 




01500 


22047 


005200 


RBL 


GET PAGE NUMBER OF PARITY ERROR 


01501 


22050 


100105 


RRL 5 




01502 


22051 
22052 


104600 
024344 


.JLB OUTN 


OUTPUT BLOCK NUMBER 


01503 


22053 


000302 


LDA PEADD 




01504 


22054 


023655 


AND ..B1777 


GET OFFSET IN PAGE 


01505 


22055 
22056 


104600 
024344 


.JLB OUTN 


OUTPUT ADDRESS IN BLOCK 


01506* 










01507 


22057 


000304 


VFP.1 LDA VCPTFLG 


IS TEST?? 


01508 


22060 


002020 


SSA 




01509 


22061 


022176 


JMP ENT2 


GET NEXT COMMAND 


01510* 










01511 


22062 


023747 


LDA VERMG 


OUTPUT VERSION 


01512 


22063 
22064 


104600 
024245 


.JLB PUTS 


MESSAGE 


01513* 










01514 


22065 


000246 


LDA MSIZE 




01515 


22066 


001722 


ALF.RAL 


MULTIPLY BY 32 


01516 


22067 


001200 


RAL 


MULTIPLY BY 2 


01517 


22070 
22071 


104600 
024312 


.JLB OUTD 


OUTPUT THE MEMORY SIZE 


01518 


22072 023763 


LDA KMES 




01519 


22073 
22074 


104600 
024245 


.JLB PUTS 


OUTPUT »K MEMORY IN SYSTEM" 


01520 


22075 


000247 


LDA ECCCNT 


GET AMOUNT OF ECC 


01521 


22076 


001722 


ALF.RAL 




01522 


22077 


00120Q 


RAL 


MULTIPLY BY 64 


01523 


22100 
22101 


104600 
024312 


.JLB OUTD 




01524 


22102 


023764 


LDA ECMES 




01525 


22103 
22104 


104600 
024245 


.JLB PUTS 




01526 


22105 


104600 


.JLB .ENQAK 


MAKE SURE TERMINAL READY, OUTPUT 




22106 


024270 




BUFFER 


01527 


22107 


022176 


JMP ENT2 


GET FIRST COMMAND 


01528* 










01529 


22110 


021660 


PE1 DEF PEINT 




01530 


22111 


000230 


PEJSB JSB PERTN 




01531* 
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01532* 

01533* 

01 53 1 ** 

01535* 

01536* 

01537 

01538 

01539 
01540 
01541 
01542 
01543 
01544 

01545 

01546 
01547 
01548 
01549 
01550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 
01558 
01559 
01560 

01561 

01562 
01563 
01564 
01565 
01566 
01567 
01568 
01569 
01570 
01571 
01572 

01573 
01574 



BREAK COMES HERE !!!!!! 
SO DO HALT INSTRUCTIONS 



22112 024137 

22113 022114 



22114 
22115 
22116 
22117 
22120 
22121 

22122 
22123 
22124 
22125 
22126 
22127 
22130 
22131 
22132 
22133 
22134 
22135 
22136 

22137 

22140 

22141 

22142 

22143 

22144 

22145 

22146 

22147 

22150 

22151 

22152 

22153 

22154 

22155 

22156 

22157 

22160 

22162 

22163 



103105 
103200 
000200 
000507 
002001 
022172 

104400 
002204 

000211 

000212 
002400 
102201 
002004 
000201 
001522 
000202 
102502 
102202 
023721 
000206 
105743 
000207 
105753 
000210 
000100 
000214 
023720 

000000 
102503 
001665 
000203 
023724 
000213 

023644 
022112 



.RENT DEF REENT 
.ENT DEF *+1 
ENTRY CLF 5 

OCT 103200 

ISZ SAVE I 

ISZ FIRST 

RSS 

JMP AGAIN 



SET PARITY TO "ODD" 

SFC 0,C 

SET INTERRUPTS ON FLAG 



CHECK NOT FIRST TIME FLAG 
BREAK WAS DURING VCP SO DONT CHANGE 
REGISTERS 
DST SAVEA+2000B SAVE "A" REGISTER AND B REGISTER 



CCQA 

STA SAVEQ 

CZA 

STA SAVEZ 

CLA 

SOC 

INA 

STA SAVEO 

ERA.RAL 

STA SAVEE 

LIA GR 

SFC GR 

IOR BIT15 

STA SAVEG 

STX SAVEX 

STY SAVEY 

LDA WMAP 
STA SAVEW 
AND B37 
LWD1 
DEF 
LIA 3 

ELA.CLE.ERA 
STA SAVEP 
ADA N1 
STA SAVEM 
XLB1 ^A' 
CPB .ENTI 
JMP .RENT, I 



GET Q 

GET Z 
SAVE IT 

IS "0" CLEAR ? 

NO, INCREMENT "A" 

SAVE "0" REPLICA 

"E" INTO LSB OF "A" 

SAVE IT 

GET CURRENT VALUE 

IS GLOBAL REGISTER ON ? 

YES, SET MSB 

SAVE FOR EXIT 

SAVE X AND Y REGISTERS 



SAVE WMAP VALUE 

SET DATA 1 MAP TO OLD XQT MAP 

FETCH "P" VALUE 

NO SIGN BIT ON P REGISTER 

SAVE IT 

IF NO, DECREMENT »P« 

SAVE "M" VALUE 

GET INSTRUCTION WHICH GOT US HERE 

IS BOOTEX CALL BACK? 

YES, GO DO REQUIRED OPERATION 
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01575* 

01576 

01577 

01578 

01579 

01580 

01581* 

01582 

01583* 

01584* 

01585 

01586 

01587 

01588* 

01589 

01590 

01591 

01592 

01593 

01594 

01595 

01596 

01597 

01598* 
01599 

01600* 

01601 

01602* 

01603* 

01604* 

01605 

01606 

01607 

01608 

01609 

01610 

01611 
01612 



22164 
22165 
22166 
22167 
22170 



102501 
001727 
023717 
002002 
023530 



22171 022176 



22172 000510 

22173 022176 

22174 105762 

22175 021633 



22176 
22177 
22200 
22201 
22202 
22203 
22204 
22205 
22206 



22207 
22210 



003400 
000507 
000302 
022111 
000005 
022110 
000232 
023745 
000526 



104600 
024411 



LIA CPUST 

ALF.ALF 

AND .B10 

SZA 

JMP EXEX2 

JMP ENT2 



AGAIN ISZ NDCLR 
JMP ENT2 
JLY .PSET 



ENT2 



CCA 

STA FIRST 
STA PEADD 
LDA PEJSB 
STA 5 
LDA PE1 
STA PE 
LDA .RTRN 
STA XEQT+2 



,JLB CI.IZ 



IS BREAK DISABLED? 

ISOLATE BREAK SWITCH 

IF ITS A ONE, BREAK DISABLED 

RESTART IMMEDIATELY IF DISABLED 



DO WE HAVE TO PRESET?? 

NO WE DONT 

PRESET 



NO PARITY ERROR 

PUT JSB IN TRAP CELL 



SET PARITY TRAP CELL FOR PE INTS 

SET RETURN POINT FOR I/O INSTRUC- 
TION SUBROUTINE 

SET GLOBAL REGISTER 



22211 102702 



STC 2 



22212 
22213 
22214 
22215 
22216 
22217 
22220 
22221 
22222 
22223 



ENABLE BREAK 
OUTPUT THE REGISTERS ( P, A, B, RW, M, & T ) 

INITIALIZE NUMBER 



002400 
000243 
000510 
000363 
023771 
104600 
024245 
000203 
104600 
024344 



CLA 
STA PEFLAG 
STA NDCLR 
STA DFLAG 
LDA PMESS 
.JLB PUTS 

LDA SAVEP 
.JLB OUTN 



DONT NEED TO CLEAR IF A BREAK HERE 
OF DIGITS FLAG 
OUTPUT A 'P 1 AND 



THE CURRENT P VALUE 
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01613* 






01614 


22224 023772 


LDA AMESS 


01615 


22225 104600 

22226 024245 


.J LB PUTS 


01616 


22227 000204 


LDA SAVEA 


01617 


22230 104600 

22231 024344 


.JLB OUTN 


01618* 






01619 


22232 023773 


LDA BMESS 


01620 


22233 104600 

22234 024245 


.JLB PUTS 


01621 


22235 000205 


LDA SAVEB 


01622 


22236 104600 

22237 024344 


.JLB OUTN 


01623 


22240 023753 


LDA SPC2 


01624 


22241 104600 

22242 024245 


.JLB PUTS 


01625 


22243 023702 


LDA .R 


01626 


22244 104600 

22245 024560 


.JLB PUTCH 


01627 


22246 023707 


LDA .W 


01628 


22247 104600 
22250 024560 


.JLB PUTCH 


01629 


22251 000214 


LDA SAVEW 


01630 


22252 104600 

22253 024344 


.JLB OUTN 


01631 


22254 022431 


JMP .TO 2 


01632* 






01633 


22255 104600 

22256 024411 


NEXT .JLB CI.IZ 


01634* 






01635* 






01636* 


HERE IS MAIN COMMAND INTER! 


01637* 






01638* 






01639 


22257 023740 


COMND LDA D7 


01640 


22260 102601 


OTA CPUST 


01641 


22261 000243 


LDA PEFLAG 


01642 


22262 002003 


SZA.RSS 


01643 


22263 022271 


JMP C0MN1 


01644* 






01645 


22264 023765 


LDA PEMES 


01646 


22265 104600 

22266 024245 


.JLB PUTS 


01647 


22267 002400 


CLA 


01648 


22270 000243 


STA PEFLAG 


01649 


22271 023750 


C0MN1 LDA PRMPT 


01650 


22272 104600 

22273 024245 


.JLB PUTS 



OUTPUT AN »A' AND 



THE CURRENT A VALUE 



SAME LIKE BEFORE 



ONLY THE NAMES HAVE CHANGED 



OUTPUT TWO SPACES 



OUTPUT WMAP VALUE 

EARLY EXIT FROM .TREG 
ENABLE VCP 



SAY IN FRONT PANEL TO LIGHTS 
WAS PARITY ERROR IN LAST COMMAND?? 
NO, GO ON 

SAY PARITY ERROR 



OUTPUT THE PROMPT 
CHARACTER ">" 
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01651* 








01652 


22274 002400 


CLA 


CLEAR COMMAND 


01653 


22275 000503 


STA TEMPO 


SAVE 


01654* 








01655 


22276 104600 C0M1 

22277 024533 


.JLB TG.BF 


INITIALIZE TO XMIT & GET BUF 


01656 


22300 104600 

22301 024540 


.JLB GETCH 


FETCH A CHARACTER 


1 657 


22302 023645 


CPA .CR 


"CR" ? 


01658 


22303 022257 


JMP COMND 


JUST TESTING 


01659 


22304 023653 


CPA .? 


AH, A PLEA FOR HELP 


01660 


22305 022416 


JMP .HELP 


GO DUMP HELP MESSAGE 


01661 


22306 023704 


CPA .T 


HOW ABOUT THE "T" REGISTER ? 


01662 


22307 022422 


JMP .TREG 


GOOD GUESS 


01663 


22310 023647 


CPA .% 


CONTROL SEQUENCE ? 


01664 


22311 023371 


JMP CNTRL 


YEP, GO SEE WHICH ONE 


01665 


22312 023675 


CPA .M 


IS IT "MEMORY ADDRESS" ? 


01666 


22313 022512 


JMP .MREG 




01667 


22314 023706 


CPA .V 


IS IT VIOLATION REGISTER?? 


01668 


22315 023164 


JMP .VIO 




01669 


22316 023702 


CPA .R 


IS IT A SPECIAL REGISTER ? 


01670 


22317 022667 


JMP .REGS 




01671 


22320 023674 


CPA .L 




01672 


22321 022551 


JMP .LIST 


LIST MEMORY 


01673* 








01674 


22322 023726 


LDB N4 


INITIALIZE DATA FLAG 


01675 


22323 023712 


CPA .1 




01676 


22324 006005 


INB.RSS 




01677 


22325 023701 


CPA .Q 




01678 


22326 006005 


INB.RSS 




01679 


22327 023711 


CPA .Y 


IS IT "Y REGISTER" ? 


01680 


22330 006005 


INB.RSS 


YES, BUMP DATA FLAG 


01681 


22331 023710 


CPA .X 




01682 


22332 006005 


INB.RSS 




01683 


22333 023672 


CPA .G 




01684 


22334 006005 


INB.RSS 




01685 


22335 023665 


CPA .B 




01686 


22336 006005 


INB.RSS 




01687 


22337 023663 


CPA .A 




01688 


22340 006005 


INB.RSS 




01689 


22341 023700 


CPA .P 




01690 


22342 006005 


INB.RSS 




01691 


22343 023670 


CPA .E 




01692 


22344 006005 


INB.RSS 




01693 


22345 023677 


CPA .0 




01694 


22346 006005 


INB.RSS 




01695 


22347 023673 


CPA .1 




01696 


22350 006005 


INB.RSS 
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01697 


22351 022412 


JMP CERR 


TRY AGAIN 


01698 


22352 000367 


STA PAGE 


SAVE CHAR 


01699» 








01700 


22353 000363 


STB DFLAG 


SET TYPE FLAG (< => SINGLE DIGIT) 


01701 


22354 023742 


LDA BUFF 


BUILD ADDRESS OF 


01702 


22355 000363 


ADA DFLAG 


DESIRED REGISTER 


01703 


22356 000361 


STA DPNTR 


SAVE IT FOR LATER 


01704 


22357 000000 


LDA A, I 


FETCH CURRENT VALUE 


01705 


22360 104600 

22361 024344 


.JLB OUTN 


PRINT IT 


01706 


22362 104600 

22363 024533 


.JLB TG.BF 


OUTPUT BUFFER AND GET INPUT 


01707 


22364 104600 

22365 024647 


.JLB GETN 


NEW VALUE 


01708 


22366 023211 


JMP COM01 


NO NEW DATA TRY AGAIN 


01709 


22367 006002 


SZB 


TERMINATION ON "CR" ? 


01710 


22370 022412 


JMP CERR 


NO, TELL 'EM ABOUT IT 


01711 


22371 000363 


LDB DFLAG 


WAS THIS THE "P" 


01712 


22372 006003 


SZB.RSS 


REGISTER ( IF DFLAG = ) 


01713 


22373 001665 


ELA.CLE.ERA 


IF YES THEN FORCE MSB TO 


01714 


22374 000361 


STA DPNTR, I 


YES, UPDATE REGISTER DATA 


01715 


22375 023746 


LDA CRLF 




01716 


22376 104600 

22377 024245 


.JLB PUTS 




01717 


22400 023754 


LDA SPC3 




01718 


22401 104600 

22402 024245 


.JLB PUTS 




01719 


22403 000367 


LDA PAGE 


OUTPUT CHARACTER 


01720 


22404 104600 

22405 024560 


.JLB PUTCH 




01721 


22406 000361 


LDA DPNTR, I 




01722 


22407 023050 


JMP .OUTIT 


GO SEE WHAT'S NEXT 


01723« 








01724* 








01725 


22410 104600 

22411 024411 


CERR2 .JLB CI.IZ 


RESTORE INTERFACE 


01726 


22412 023752 


CERR LDA ERMES 


BEEP 


01727 


22413 104600 

22414 024245 


.JLB PUTS 




01728 


22415 022257 


JMP COMND 


ONE MO' TIME 


01729* 
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01730* 












01731* 


OUTPUT THE 


HELP 


MESSAGE 




01732* 












01733* 












01734 


22416 


023751 


• HELP 


LDA HELP 


OUTPUT THE HELP 


01735 


22417 
22420 


104600 
024245 




.JLB PUTS 


MESSAGE 


01736 


22421 


022257 




JMP COMND 


TRY AGAIN 


01737* 












01738* 












01739* 


TOGGLE BASE BETWEEN HEX AND 


OCTAL 


01740* 












01741* 












01742* 












01743* 


ROUTINE TO 


HANDLE "T" REGISTER ACCESSES 


01744* 












01745* 












01746 


22422 


000363 


.TREG 


STA DFLAG 


SET DFLAG FOR MULTIPLE DIGITS 
( DFLAG > ) 


01747 


22423 023746 


.TOO 


LDA CRLF 


OUTPUT CR 


01748 


22424 
22425 


104600 
024245 




.JLB PUTS 




01749 


22426 


023753 




LDA SPC2 


SPACE SPACE 


01750 


22427 
22430 


104600 
024245 




.JLB PUTS 




01751 


22431 


023755 


.T02 


LDA MMESS 


OUTPUT "M" 


01752 


22432 


104600 




.JLB PUTS 


AND THE CURRENT 




22433 024245 








01753 


22434 


000213 




LDA SAVEM 


"M" REGISTER 


01754 


22435 


104600 




.JLB OUTN 


CONTENTS 




22436 024344 








01755 


22437 


023756 




LDA TMESS 


NOW OUTPUT "T" OR "t" DEPENDING 


01756 


22440 
22441 


104600 
024245 




.JLB PUTS 




01757 


22442 






XLA1 'gSAVEM 


1 GET MAIN MEMORY DATA 


01758 


22444 
22445 


104600 
024344 




.JLB OUTN 


OUTPUT THE VALUE 


01759 


22446 


000363 




LDB DFLAG 


WAS THIS PART OF ( P,A,B,M,& T ) 


01760 


22447 


006003 




SZB.RSS 


IF DFLAG NO. THEN GET INPUT 


01761 


22450 


022257 




JMP COMND 


ELSE BAIL OUT 


01762 


22451 
22452 


104600 
024533 




.JLB TG.BF 




01763 


22453 
22454 


104600 
024647 




.JLB GETN 


GET NEW DATA, MAYBE 


01764 


22455 


022474 




JMP .T? 


NO NEW DATA, CHECK FOR "N" OR »P" 


01765 


22456 


006003 




SZB.RSS 


CR? 


01766 


22457 


022465 




JMP .T03 




01767 


22460 


023667 




CPB .D 
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01768 


22461 


022465 




JMP 


• T03 




01769 


22462 


023676 




CPB 


.N 




01770 


22463 022465 




JMP 


.T03 




01771 


22464 


022412 




JMP 


CERR 


BAD INPUT AFTER VALUE 


01772 


22465 




.T03 


XSA1 


'§SAVEM' 


STORE INTO MAIN MEMORY 


01773* 














01774 


22467 


006002 




SZB 




WAS IT CR 


01775 


22470 


022474 




JMP 


.T? 


NO, SEE WHAT ELSE IT COULD BE 


01776* 














01777 


22471 


002400 




CLA 






01778 


22472 


000363 




STA 


DFLAG 


INDICATE ECHOING 


01779 


22473 


022423 




JMP 


.TOO 


ECHO NEW RESULT 


01780* 














01781 


22474 


023645 


• T? 


CPB 


.CR 


"CR" ? 


01782 


22475 


022257 




JMP 


COMND 


YES, EXIT 


01783 


22476 


000213 




LDA 


SAVEM 


FETCH "M" 


01784 


22477 


002004 




INA 




INCREMENT, JUST IN CASE 


01785 


22500 


023676 




CPB 


• N 


WAS IT "NEXT" ? 


01786 


22501 


022506 




JMP 


PREV+1 


NOT BAD, MUST HAVE BEEN LUCK 


01787 


22502 


023667 




CPB 


.D 


WAS IT "DECREMENT" ? 


01788 


22503 


022505 




JMP 


PREV 


YES, DECREMENT "M" 


01789 


22504 


022412 




JMP 


CERR 


ERROR 


01790* 














01791 


22505 


023725 


PREV 


ADA 


N2 


DECREMENT "M" 


01792 


22506 


002020 




SSA 




IS MSB SET ? NOT VALID FOR "M" 


01793 


22507 


000213 




LDA 


SAVEM 


USE OLD VALUE 


01794 


22510 


000213 




STA 


SAVEM 


UPDATE "M" SAVE BUFFER 


01795 


22511 


022423 




JMP 


.TOO 


GO DISPLAY RESULTS 


01796* 














01797* 














01798* 














01799* 


ROUTINE TO HANDLE "h< 


1" REGISTER STUFF 


01800* 














01801* 














01802 


22512 


000363 


.MREG 


STA 


DFLAG 


MSB = => MULTI DIGIT OUTPUT 


01803 


22513 


000213 




LDA 


SAVEM 


AND M 


01804 


22514 
22515 


104600 
024344 




.JLE 


! OUTN 


VALUE 


01805* 














01806 


22516 
22517 


104600 
024533 




.JLE 


! TG.BF 


TRANSMIT AND GET BUFFER 


01807 


22520 


104600 




.JLB GETN 


GET NEW VALUE 




22521 


024647 










01808 


22522 


022546 




JMP 


MT? 


NO NEW DATA 


01809 


22523 


006002 




SZB 




NEW DATA, DID IT END WITH "CR" 


01810 


22524 


023704 




CPB 


.T 


NO, WAS IT "T" ? 


01811 


22525 


022527 




JMP 


STORM 


EITHER WAY GO STORE NEW VALUE 


01812 


22526 


022412 




JMP 


CERR 


ERROR, GO BEEP AT THE TURKEY 


01813* 
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01814 

01815 
01816 
01817 
01818 
01819 

01820 
01821 

01822 
01823 

01824 

01825 

01826 

01827 

01828 

01829 

01830* 

01831* 

01832* 

01834* 

01835* 

01836* 

01837* 

01838 

01839 

01840 
01841 
01842 

01843 
01844 
01845 
01846 
01847 
01848 

01849 
01850 

01851 
01852 
01853 

01854 



22527 
22530 
22531 
22532 
22533 
22534 
22535 
22536 
22537 
22540 
22541 
22542 
22543 
22544 
22545 



001665 

000213 
006002 
022546 
023746 
104600 
024245 
023753 
104600 
024245 
023755 
104600 
024245 
000213 
023050 



22546 023704 

22547 022423 
22550 023211 



STORM ELA.CLE.ERA 
STA SAVEM 
SZB 

JMP MT? 
LDA CRLF 
.JLB PUTS 

LDA SPC2 
.JLB PUTS 

LDA MMESS 
.JLB PUTS 

LDA SAVEM 
JMP .OUTIT 

MT? CPB .T 

JMP .TOO 
JMP COM01 



FORCE MSB TO 
SAVE WHAT'S LEFT 
CR IS OK RESULT 



ECHO THE NEW VALUE 



WAS IT "T" ? 
YES, GO TO "T REGISTER" DISPLAY 



ROUTINE TO LIST MEMORY CONTENTS 



22551 
22552 

22553 
22554 

22555 
22556 
22557 
22560 
22561 
22562 
22563 
22564 
22565 
22566 
22567 
22570 
22571 
22572 

22573 
22574 
22575 



000363 
104600 
024647 
002404 
003004 
000224 
006002 
023645 
002001 
022412 
023746 
104600 
024245 
023755 
104600 
024245 
000213 
000254 
104600 
024344 
023761 



.LIST STA DFLAG 
.JLB GETN 

CLA.INA 
CMA.INA 
STA MCNTR 
SZB 

CPB .CR 
RSS 

JMP CERR 
LDA CRLF 
.JLB PUTS 

LDA MMESS 
.JLB PUTS 

LDA SAVEM 
STA MPTR 
.JLB OUTN 

LDA MPMES 



MORE THAN ONE DIGIT 
GET NUMBER TO LIST 

NO NUMBER, ONE LINE 

SAVE IN LINE COUNT 

ENDED WITH CR? 

ERROR, NO CR AT END 

OUTPUT CRLF 

OUTPUT M 
OUTPUT M VALUE 
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01855 


22576 104600 

22577 024245 


.JLB PUTS 


SAY MAP 


01856 


22600 000214 


LDA SAVEW 




01857 


22601 023720 


AND B37 




01858 


22602 104600 

22603 024344 


.JLB OUTN 


OUTPUT MAP NUMBER 


01859 


22604 023746 


LDA CRLF 




01860 


22605 104600 

22606 024245 


.JLB PUTS 


OUTPUT CR AND LF 


01861 


22607 023727 


.LLP LDA N8 




01862 


22610 000225 


STA PCNTR 




01863 


22611 000254 


LDA MPTR 




01864 


22612 000367 


STA PAGE REMEMBER START OF LINE FOR CH, 


01865 


22613 


.LLP2 XLA1 '§MPTR' 


GET DATA 


01866 


22615 104600 

22616 024344 


.JLB OUTN 


OUTPUT IT 


01867 


22617 000254 


LDA MPTR 


NEXT MEMORY LOCATION 


01868 


22620 002004 


INA 




01869 


22621 001665 


ELA.CLE.ERA 


CLEAR SIGN BIT 


01870 


22622 000254 


STA MPTR 


SAVE IT 


01871 


22623 000225 


ISZ PCNTR 




01872 


22624 022613 


JMP .LLP2 




01873 


22625 023727 


LDA N8 




01874 


22626 000251 


STA CNTR 




01875 


22627 


.LCLP XLA1 '§PAGE' 


GET A WORD 


01876 


22631 001727 


ALF.ALF 




01877 


22632 104600 

22633 022654 


.JLB .LCH1 


OUTPUT A CHAR 


01878 


22634 


XLA1 '§PAGE' 




01879 


22636 104600 

22637 022654 


•JLB .LCH1 


OUTPUT SECOND CHAR 


01880 


22640 000367 


ISZ PAGE 


NEXT WORD 


01881 


22641 000251 


ISZ CNTR 




01882 


22642 022627 


JMP .LCLP 




01883* 








01884 


22643 023746 


LDA CRLF 




01885 


22644 104600 

22645 024245 


.JLB PUTS 


OUTPUT CRLF AT END OF LINE 


01886 


22646 000224 


ISZ MCNTR 


DONE? 


01887 


22647 002001 


RSS 




01888 


22650 022257 


JMP COMND 


YES, GET NEXT COMMAND 


01889 


22651 104600 

22652 024270 


.JLB .ENQAK 


DO ENQACK HANDSHAKE 


01890 


22653 022607 


JMP .LLP 





C-47 



VIRTUAL CONTROL PANEL PAGE 1 



01891* 
01892 

01893 
01894 
01895 
01896 
01897 
01898 
01899 
01900 

01901 

01903* 

01904* 

01905* 

01906* 

01907* 

01908 

01909* 

01910 

01911 
01912 

01913 
01914 
01915 
01916 
01917 
01918 
01919 
01920 
01921 
01922 
01923 
01924 
01925 
01926 
01927 
01928 
01929 
01930 

01931 
01932 
01933 
01934 



22654 000535 .LCH1 

22655 023664 

22656 023664 

22657 023645 

22660 023735 

22661 002020 

22662 002400 

22663 023741 

22664 104600 

22665 024560 

22666 000535 



ROUTINE TO HANDLE THE SPECIAL REGISTER STUFF 



STB RLCH1 


SAVE RETURN ADDRESS 


AND .DEL 


ONLY LOW BYTE 


CPA .DEL 


IS DELETE?? 


LDA .CR 


YES, MAKE SMALLER ILLEGAL CHAR 


ADA N32 


SUBTRACT 32 


SSA 


NEGATIVE?? 


CLA 


YES, MAKE SPACE 


ADA D32 


PUT CHAR BACK 


.JLB PUTCH 


OUTPUT CHAR 


JMP RLCH1.I 


RETURN 



22667 000363 .REGS STA DFLAG 



22670 

22671 
22672 

22673 
22674 
22675 
22676 

22677 
22700 

22701 
22702 

22703 
22704 
22705 
22706 
22707 
22710 
22711 
22712 
22713 
22714 
22715 
22716 
22717 
22720 
22721 
22722 



104600 
024540 
000221 
023737 
023666 
023043 
023673 
023144 
023707 
023131 
023664 

022257 
023675 
023214 
023700 
023152 
023703 
023162 
023651 
022717 
023652 
006005 
022726 
005723 
000263 
104600 
024540 



.JLB GETCH 



STA SVCHR 
LDB D2 

.C 

.CIR 

.1 

.MASK 

.W 

.WMP 

.DEL 
JMP COMND 
CPA .M 

.MAPS 

.P 

.PAR 

.S 

.STAT 

.2 



CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 



JMP 
CPA 
JMP 
CPA 
JMP 
CPA 



JMP IONXT 
CPA .3 
INB.RSS 
JMP GLCHK 
IONXT BLF.RBR 

STB IORGN 
.JLB GETCH 



SET FOR MORE THAN ONE DIGIT 

GET THE NEXT CHARACTER 

SAVE CHAR FOR ECHO 
SET "B" JUST IN CASE 
IS IT "CIR" ? 

HOW ABOUT "INTERRUPT MASK" ? 

IS IT WMAP REGISTER 

IS DELETE? 

HOW ABOUT MAP REGISTERS 

"PARITY ERROR" MAYBE ? 

"CPU STATUS SWITCHES" ? 

I/O REG? 



MULT BY 8 
GET NEXT 
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01935 


22723 


023650 


XOR ZERO 


SAVE LOW BITS 


01936 


22724 


000263 


ADA IORGN 




01937 


22725 


000263 


STA IORGN 


I/O REGISTER NUMBER 


01938 


22726 


000206 


GLCHK LDB SAVEG 


CHECK GLOBAL REGISTER 


01939 


22727 


107602 


OTB 2,C 


TURN ON GLOBAL REGISTER 


01940 


22730 


006400 


CLB 




01941 


22731 


106502 


LIB 2 




01942 


22732 


006003 


SZB.RSS 




01943 


22733 


022410 


JMP CERR2 


ERROR IF NO I/O AT THAT SELEC' 


01944 


22734 


000221 


LDA SVCHR 


GET FIRST CHAR BACK AGAIN 


01945 


22735 


023667 


CPA .D 




01946 


22736 


023102 


JMP .DIAG 




01947 


22737 


023671 


CPA .F 




01948 


22740 


023053 


JMP .FLAGS 




01949 


22741 


023651 


CPA .2 


"I/O" 20 THRU 27 ? 


01950 


22742 


022746 


JMP IOREG 




01951 


22743 023652 


CPA .3 


"I/O" 30 THRU 32 ? 


01952 


22744 


002001 


RSS 




01953 


22745 


022410 


JMP CERR2 


YOU BLEW IT 


01954* 










01955 


22746 


000263 


IOREG LDA IORGN 


AND SAVE THE RESULT 


01956 


22747 


023734 


ADA N27 


WAS IT GREATER 


01957 


22750 


002021 


SSA.RSS 


THAN 33B ? 


01958 


22751 


022410 


JMP CERR2 


YES, TOO BEEG 


01959 


22752 


000263 


LDA IORGN 


CLEAN COPY 


01960 


22753 


023733 


ADA N24 


WAS IT LESS 


01961 


22754 


002021 


SSA.RSS 


THAN 30B ? 


01962 


22755 


022766 


JMP REGOK 


NO => 30, 31, OR 32 


01963 


22756 000263 


LDA IORGN 


FRESH COPY 


01964 


22757 


023732 


ADA N23 


WAS IT GREATER 


01965 


22760 


002021 


SSA.RSS 


THAN 26B ? 


01966 


22761 


022410 


JMP CERR2 


YOU DUMMY THERE AIN'T NO 27 8 


01967 


22762 000263 


LDA IORGN 


ONCE MORE 


01968 


22763 


023731 


ADA N16 


IS IT LESS THAN 


01969 


22764 


002020 


SSA 


20B ? 


01970 


22765 


022410 


JMP CERR2 


NOW IT'S TOO SMALL 


01971* 










01972 


22766 
22767 


104600 
023027 


REGOK .J LB GETREG 


GET REGISTER VALUE 


01973 


22770 
22771 


104600 
024533 


.JLB TG.BF 


TRANSMIT AND GET NEW BUFFER 


01974 


22772 
22773 


104600 
024647 


.JLB GETN 


GET NEW VALUE 


01975 


22774 


023211 


JMP COM01 


NO NEW VALUE 


01976 


22775 


006002 


SZB 




OI977 


22776 


022412 


JMP CERR 




01978 


22777 


000525 


LDB XEQT+1 


NOW MAKE 


01979 


23000 


023722 


ADB .B100 


IT AN 
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01980 
01981 
01982 
01983 
01984 

01985 
01986 

01987 
01988 

01989 
01990 

01991 
01992 

01993 
0199^ 
01995 

01996 

01997* 

01998 

01999 

02000 

02001 

02002 

02003 

02004 

02005 
02006 

02007 

02008* 

02009* 

02010 

02011 

02012 

02013 
02014 

02015 
02016* 



23001 
23002 
23003 
23004 
23005 
23006 
23007 
23010 
23011 
23012 

23013 
23014 
23015 
23016 

23017 
23020 
23021 
23022 
23023 
23024 
23025 
23026 

23027 
23030 
23031 
23032 
23033 
23034 
23035 
23036 
23037 
23040 
23041 
23042 



23043 
23044 
23045 
23046 
23047 
23050 
23051 
23052 



000525 
000206 
107602 
000524 
104600 
024411 
023770 
104600 
024245 
000221 
104600 
024560 
000525 
023740 
023650 
104600 
024560 
000206 
103602 
104600 
023027 
022257 

000543 
023744 
000263 
000525 
000524 
000503 
104600 
024411 
000503 
104600 
024344 
000543 



102504 
104600 
023 166 
102604 
102504 
104600 
024344 
022257 



STB XEQT+1 
LDB SAVEG 
OTB GR,C 
JSB XEQT 
.JLB CI.IZ 

LDA RMESS 
.JLB PUTS 

LDA SVCHR 
.JLB PUTCH 

LDA XEQT+1 
AND D7 
ADA ZERO 
.JLB PUTCH 

LDA SAVEG 
OTA GR.C 
.JLB GETREG 

JMP COMND 

GETREG STB RGETREG 
LDA .LIA 
IOR IORGN 
STA XEQT+1 
JSB XEQT 
STA TEMPO 
.JLB CI.IZ 

LDA TEMPO 
.JLB OUTN 

JMP RGETREG, I 



.CIR LIA 4 

.JLB COMN 

OTA 4 

LIA 4 

.OUTIT .JLB OUTN 

JMP COMND 



"OTA" 
SET THE GLOBAL REGISTER 

TO THE DESIRED VICTIM 
TRY IT OUT 

PUT GLOBAL REGISTER BACK 



ECHO R 

GET REGISTER NUMBER BACK 
OUTPUT IT 



GET SECOND CHAR 
MAKE ASCII 



ENABLE GLOBAL REGISTER 

GET NEW VALUE AND OUTPUT IT 



SEE WHAT'S NEXT 



BUILD THE 

APPROPRIATE 

"LIA" INSTRUCTION 
GO DO IT ! 
SAVE RESULT 
PUT THE GLOBAL REGISTER BACK 



RESTORE RESULT 
OUTPUT THE VALUE 



GET CURRENT CIR 

OUTPUT IT AND GET NEW VALUE 

UPDATE THE CIR 

ECHO NEW VALUE 

SPLIT 
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02017* 








02018 


23053 


002400 


.FLAGS CLA 


02019 


23054 


102220 


SFC 20B 


02020 


23055 


002004 


INA 


02021 


23056 001723 


ALF.RAR 


02022 


23057 


102221 


SFC 21B 


02023 


23060 002004 


INA 


.02024 


23061 


001723 


ALF.RAR 


02025 


23062 


102222 


SFC 22B 


02026 


23063 


002004 


INA 


02027 


23064 001723 


ALF.RAR 


02028 


23065 


102223 


SFC 23B 


02029 


23066 


002004 


INA 


02030 


23067 001723 


ALF.RAR 


02031 


23070 


102224 


SFC 24B 


02032 


23071 


002004 


INA 


02033 


23072 001723 


ALF.RAR 


0203^ 


23073 


102230 


SFC 3 OB 


02035 


23074 


002004 


INA 


02036 


23075 


000262 


STA RFTMP 


02037 


23076 


104600 


.JLB CI.IZ 




23077 024411 




02038 


23100 000262 


LDA RFTMP 


02039 


23101 


023050 


JMP .OUTIT 


02010* 








02041 


23102 


002404 


.DIAG CLA, INA 


02042 


23103 


102602 


OTA GR 


02043 


23104 


000206 


LDA SAVEG 


02044 


23105 023654 


AND ..B377 


02045 


23106 


023744 


IOR .LIA 


02046 


23107 


000525 


STA XEQT+1 


02047 


23110 


000524 


JSB XEQT 


02048 


23111 


000503 


STA TEMPO 


02049 


23112 


023737 


LDA D2 


02050 


23113 


102602 


OTA GR 


02051 


23114 


000206 


LDA SAVEG 


02052 


23115 


023654 


AND ..B377 


02053 


23116 


023744 


IOR .LIA 


02054 


23117 


000525 


STA XEQT+1 


02055 


23120 


000524 


JSB XEQT 


02056 


23121 


000502 


STA TEMPI 


02057 


23122 


104600 


.JLB CI.IZ 




23123 


024411 




02058 


23124 


000503 


LDA TEMPO 


02059 


23125 


104600 


.JLB OUTN 




23126 


024344 




02060 


23127 


000502 


LDA TEMPI 


02061 


23130 


023050 


JMP .OUTIT 



GET GLOBAL REGIUSTER 
MAKE LIA INSTRUCTION 



ESTABLISH DIAGNOSE MODE 2 



PUT GLOBAL REGISTER BACK 



GET NEXT COMMAND 



C-51 



VIRTUAL CONTROL PANEL PAGE 1 



02062* 
02063* 
02064* 

02065 
02066 

02067 

02068 

02069* 

02070 

02071 

02072 

02073 

02074 

02075 

02076* 

02077* 

02078* 

02079 

02080 

02081 
02082 

02083 
02084* 
02085* 
02086 

02087 
02088 
02089 

02090 

02091 

02092 

02093* 

02094* 

02095 

02096 

02097* 

02098* 

02099 

02100 

02101* 

02102* 

02103 

02104 

02105 



23131 000214 

23132 104600 

23133 023166 

23134 002001 

23135 022257 



23136 
23137 
23140 
23141 
23142 
23143 



000214 
023720 

000000 
000214 
023050 



23144 102500 

23145 104600 

23146 023166 

23147 102600 

23150 102500 

23151 023050 



23152 

23153 
23154 

23155 
23156 
23157 
23160 
23161 



102505 
107505 
101032 
104600 
024344 
102505 
023655 
023050 



23162 102501 

23163 023050 



23164 103507 

23165 023050 



23166 000547 

23167 104600 

23170 024344 

23171 104600 

23172 024533 



.WMP LDA SAVEW 
.JLB COMN 

RSS 

JMP COMND 

STA SAVEW 
AND B37 
LWD1 
DEF 
LDA SAVEW 
JMP .OUTIT 



•MASK LIA 

.JLB COMN 

OTA 
LIA 
JMP .OUTIT 



•PAR LIA 5 

LIB 5.C 
ASR 10 
.JLB OUTN 

LIA 5 

AND . .B1777 

JMP .OUTIT 



.STAT LIA 1 

JMP .OUTIT 



.VIO LIA 7,C 

JMP .OUTIT 



COMN STB RCOMN 
.JLB OUTN 

.JLB TG.BF 



OUTPUT THE WMAP VALUE 



NO NEW VALUE 



ECHO NEW VALUE 



FETCH INTERRUPT MASK 
SAME OLE' 

NEW INTERRUPT MASK VALUE 



CURRENT PARITY REGISTER 



FETCH THE SWITCHES 



GET THE CURRENT VALUE 



SAVE RETURN ADDRESS 
OUTPUT THE CONTENTS OF "A" 
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02106 

02107 
02108 
02109 
02110 
02111 
02112 

02113 
02114 

02115 
02116 

02117* 
02118 

02119 
02120 

02122* 
02123* 
02124* 
02125* 
02126* 
02127 

02128 

02129* 

02130 

02131 

02132* 

02133 

02134 

0213b 

02136 

02137 

02138* 

02139 

02140 

02141 

02142 

02143* 

02144 

02145 

02146 

02147* 



23173 
23174 
23175 
23176 
23177 
23200 
23201 
23202 
23203 
23204 
23205 
23206 
23207 
23210 



104600 

024647 
023211 
006002 
022412 
000222 
023770 
104600 
024245 
000221 
104600 
024560 
000222 
000547 



23211 023645 

23212 022257 

23213 022412 



.J LB GETN 

JMP C0M01 

SZB 

JMP CERR 

STA SACOMN 

LDA RMESS 

.JLB PUTS 

LDA SVCHR 
.JLB PUTCH 

LDA SACOMN 
JMP RCOMN.I 

COM01 CPB .CR 

JMP COMND 
JMP CERR 



TRY FOR SOME NEW DATA 

NO SUCH LUCK ( NO NEW DATA ) 
DATA, BUT WAS THERE A CR ? 

NO, SORRY CHARLIE 
SAVE A REGISTER 
START THE ECHO 



OUTPUT THE REGISTER NAME 

GET THE VALUE BACK AGAIN 
YES, WE DONE SOMETHING RIGHT 

NO DATA, BUT WAS IT A CR ? 
YES, GOOD EXIT 
NO, NOT SO GOOD EXIT 



PROCESS REGISTER M (MAPS) COMMANDS 



23214 104600 

23215 024647 

23216 022412 

23217 002020 

23220 022412 

23221 000260 

23222 023735 

23223 000000 

23224 006021 

23225 022412 

23226 000366 

23227 000260 

23230 006003 

23231 023235 

23232 023700 

23233 023264 

23234 022412 



• MAPS 



.JLE 


1 GETN 


JMP 


CERR 


SSA 




JMP 


CERR 


STB 


TEMP 


LDB 


N32 


ADB 


A 


SSB, 


,RSS 


JMP 


CERR 


STA 


MAP 


LDB 


TEMP 


SZB, 


,RSS 


JMP 


MAP 01 


CPB 


.P 


JMP 


MAPPG 


JMP 


CERR 



GET THE MAP NUMBER 

NO NUMBER, ERROR 

IS MAP NUMBER NEGATIVE? 
YES, ERROR 

SAVE B 

MAP NUMBER MUST BE LESS THAN 32 

SUBTRACT 32 FROM MAP NUMBER 

RESULT NEGATIVE? 

NO, ERROR SINCE MAP NUMBER > 31 

SAVE MAP NUMBER (0-3D 

TERMINATED WITH CR? 
YES, GO OUTPUT A MAP 

TERMINATED WITH P? 
YES, GO FIND OUT WHAT PAGE HE WANTS 
OTHER TERMINATIONS ARE ERRORS 
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02148* 

02149 

02150 

02151 

02152 

02153 

02154 

02155 

02156 

02157 

02158 

02159 

02160 
02161 

02162 

02163 

02164 

02165* 

02166 

02167 

02168 

02169* 

02170 

02171* 

02172* 

02173 

02174 

02175 

02176* 

02177 

02178 

02179* 

02180 

02181 

02182 

02183* 

02184 

02185 

02186 

02187 

02188 

02189 

02190 

02191 



23235 MAP01 SMAP 

23236 000000 DEF 

23237 000370 MBUF DEF MPBUF 

23240 023726 LDA N4 

23241 000225 STA PCNTR 

23242 023237 LDA MBUF 

23243 000254 STA MPTR 

23244 023727 MAP 15 LDA N8 

23245 000224 STA MCNTR 

23246 023746 LDA CRLF 

23247 104600 .JLB PUTS 

23250 024245 

23251 000254 MAP02 LDA MPTR, I 

23252 104600 .JLB OUTN 

23253 024344 

23254 000254 ISZ MPTR 

23255 000224 ISZ MCNTR 

23256 023251 JMP MAP02 



23257 104600 

23260 024270 

23261 000225 

23262 023244 

23263 022257 



.JLB .ENQAK 

ISZ PCNTR 
JMP MAP 15 

JMP COMND 



23264 104600 

23265 024647 

23266 022412 

23267 023347 

23270 002020 

23271 022412 

23272 023735 

23273 002021 

23274 022412 



MAPPG .JLB GETN 

JMP CERR 
JMP MAPP2 

MAPP1 SSA 

JMP CERR 

ADA N32 
SSA.RSS 
JMP CERR 

23275 000366 LDA MAP 

23276 SMAP 

23277 000000 DEF 

23300 000370 DEF MPBUF 

23301 023237 LDB MBUF 

23302 000367 ADB PAGE 

23303 000254 STB MPTR 

23304 000001 LDA B,I 



XSM READ MAP (A) INTO MEMORY (B) 



4 LINES OF OUTPUT 
GET ADDRESS OF MAP 
SAVE POINTER TO IT 
8 NUMBERS PER LINE 



OUTPUT CR LF 

GET A MAP CONTENTS 
OUTPUT IT 

POINT TO NEXT MAP REGISTER 

DONE WITH LINE? 

NO, GO DO ANOTHER REGISTER 

TERMINAL READY?? 

DONE 4 LINES YET? 

NO, OUTPUT MORE REGISTERS 

DONE, GO GET NEXT COMMAND 



INPUT PAGE NUMBER 
NO NUMBER, ERROR 



IS NUMBER NEGATIVE? 
YES, ERROR 



IS NUMER >= 32? 
YES, ERROR 

GET MAP INTO MEMORY 

XSM READ MAP (A) INTO MEMORY (B) 



GET BUFFER ADDRESS 

ADD TO POINT AT PAGE NEEDED 

SAVE PAGE ADDRESS 

GET PAGE 
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02192 23305 104600 
23306 021344 

02193 23307 104600 
23310 024533 

02194 23311 104600 
23312 024647 

02195 23313 023334 

02196* 

02197 23314 000260 

02198 23315 006003 



02199 

02200 

02201 

02202 

02203 

02204 

02205» 

02206 

02207 

02208 

02209 

02210 

02211 

02212 

02213 

02214* 

02215 

02216 

02217 

02218 

02219 

02220 

02221 

02222 

02223 

02224 

02225 

02226 

02227 

02228 

02229 
02230 

02231 
02232 



23316 
23317 
23320 
23321 
23322 
23323 

23324 
23325 
23326 
23327 
23330 
23331 
23332 
23333 

23334 
23335 
23336 
23337 
23340 
23341 
23342 

23343 
23344 

23345 
23346 
23347 
23350 
23351 
23352 
23353 
23354 
23355 
23356 
23357 
23360 



023324 
023676 
023324 
023667 
002001 
022412 

000254 
000366 

000000 
000370 
000260 
006003 
022257 

023645 
022257 
000367 
023676 
023346 
023667 
002001 
022412 
023724 
002001 
002004 
000367 
023746 
104600 
024245 
023761 
104600 
024245 
000366 
104600 
024344 



.JLB OUTN 
.JLB TG.BF 
.JLB GETN 
JMP NXPG 



STB TEMP 
SZB.RSS 

JMP NXPG1 
CPB .N 
JMP NXPG1 
CPB .D 
RSS 
JMP CERR 

NXPG1 STA MPTR.I 
LDA MAP 
LMAP 
DEF 
DEF MPBUF 
LDB TEMP 
SZB.RSS 
JMP COMND 

NXPG CPB .CR 

JMP COMND 

LDA PAGE 

CPB .N 

JMP NXPG2 

CPB .D 
RSS 

JMP CERR 

ADA N1 
RSS 

NXPG2 INA 

MAPP2 STA PAGE 

LDA CRLF 
.JLB PUTS 

LDA MPMES 
.JLB PUTS 

LDA MAP 
.JLB OUTN 



OUTPUT VALUE AND GET NEW VALUE 

TRANSMIT AND GET RESULTS 

GET NEW VALUE 

NO NEW VALUE, SEE IF HE WANTS 
ANOTHER PAGE 

SAVE LETTER INPUT 

ERROR IF T INPUT SO DONT UPDATE 

MAP 
CR ENTERED AT END 

ONLY CR, N, OR D ARE LEGAL HERE 

ERROR SINCE BAD CHAR INPUTQ 

PUT NEW PAGE VALUE IN BUFFER 

XLM STORE MAP (A) FROM MEMORY (B) 



GET LETTER BACK 
WAS CR? 
YES, DONE 



GET CURRENT PAGE NUMBER 

IS NEXT? 

YES, NEXT PAGE 

IS PREVIOUS? 



YES, SUBTRACT 1 



SAVE NEW PAGE NUMBER 
ON TO NEXT LINE 



OUTPUT MAP 



OUTPUT MAP NUMBER 
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02233 


23361 


023762 


LDA PGMES 




02234 


23362 
23363 


104600 
024245 


.JLB PUTS 


OUTPUT "PAGE" 


02235 


23364 


000367 


LDA PAGE 




02236 


23365 
23366 


104600 
024344 


.JLB OUTN 


OUTPUT NEW PAGE NUMBER 


02237 


23367 


000367 


LDA PAGE 


PAGE FOR MAPP1 


02238 


23370 


023270 


JMP MAPP1 


GO OUTPUT PAGE AND GET NEW VALU 


02239* 










02241* 










02242* 










02243* 


PROCESS " 


%" COMMANDS 




02244* 










02245* 










02246 


23371 


104600 


CNTRL .JLB GETS 


GET REST OF STRING 




23372 024766 






02247 


23373 


023746 


LDA CRLF 




02248 


23374 
23375 


104600 
024245 


.JLB PUTS 


OUTPUT CRLF 


02249 


23376 


023643 


LDA SPTR.I 


GET FIRST CHAR 


02250 


23377 


023654 


AND ..B377 




02251 


23400 


000503 


STA TEMPO 




02252 


23401 


023705 


CPA .U 


USER 


02253 


23402 


023434 


JMP .USER, I 




02254 


23403 


023674 


CPA .L 


LOAD SOMETHING ? 


02255 


23404 


023553 


JMP .LOAD 


GO SEE WHAT IT IS 


02256 


23405 


023707 


CPA .W 


WRITE SOMETHING 


02257 


23406 


023553 


JMP .LOAD 


SORT IT OUT LATER 


02258 


23407 


023665 


CPA .B 


BOOT MAYBE ? 


02259 


23410 


023553 


JMP .LOAD 


LOAD 'EM AND RUN 


02260 


23411 


023643 


LDA SPTR 




02261 


23412 


002004 


INA 




02262 


23413 000000 


LDA A, I 


GET SECOND WORD 


02263 


23414 


001727 


ALF.ALF 




02264 


23415 


023654 


AND ..B377 


MASK OFF NEXT CHAR 


02265 


23416 


002002 


SZA 


MUST BE ZERO ( NO NEXT CHAR FOR 
FOLLOWING COMMANDS) 


02266 


23417 


022412 


JMP CERR 


ERROR SINCE CHARS AFTER COMMAND 


02267 


23420 


000503 


LDA TEMPO 


GET CHAR BACK AGAIN 


02268 


23421 


023670 


CPA .E 


EXECUTE? 


02269 


23422 023507 


JMP .EX 


GO EXECUTE PROGRAM 


02270 


23423 


023702 


CPA .R 


RUN? 


02271 


23424 


023515 


JMP .RUN 


GO RUN FROM CURRENT P 


02272 


23425 


023704 


CPA .T 


TEST? 


02273 


23426 


023545 


JMP .TRAC 


GO DO PRETEST 


02274 


23427 


023666 


CPA .C 


MEMORY CLEAR ? 


02275 


23430 


023445 


JMP CLRM 


GO ZERO MEMORY 
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02276 23431 023700 

02277 23432 023435 

02278 23433 022412 



CPA .P PRESET ?? 

JMP PRSET YES, GO DO A "CLC 0,C" 

JMP CERR NUTHIN' 



02280* 

02281 

02282* 

02283* 

02284* 

02285* 

02286* 

02287* 

02288* 

02289* 

02290* 

02291 

02292 

02293 
02294 

02295 
02296* 
02297* 
02298* 

02299* 

02300* 

02301* 

02302 

02303 

02304 
02305 
02306 
02307 
02308 
02309 
02310 
02311 
02312* 

02313 
02314 

02315 

02316* 

02317 



23434 030002 .USER DEF 30002B JUMP TO USER ROM CODE 



PRESET THE MACHINE 



23435 105762 

23436 021633 

23437 104600 

23440 024411 

23441 023760 

23442 104600 

23443 024245 

23444 023502 



PRSET JLY .PSET 



.JLB CI.IZ 



LDA PRMES 
•JLB PUTS 

JMP FXRX 



BLOW EVERYTHING AWAY 
FIX UP THE INTERFACE CARD 

;*** PRESET *** 

THAT'S ALL GET NEXT COMMAND 



ROUTINE TO CLEAR MEMORY ( ADDRESSES 2 TO 77777 ) 



23445 023757 

23446 104600 

23447 024245 

23450 002400 

23451 000366 
23452 

23453 000000 

23454 000430 

23455 002400 
23456 
23457 000000 

23460 000366 

23461 000246 

23462 023476 

23463 105762 

23464 027647 



CLRM LDA CLMES 
.JLB PUTS 

CLA 

STA MAP 
SMAP 
DEF 
DEF MZSV 
CLA 
LWD1 
DEF 

CLRM1 LDA MAP 

CPA MSIZE 
JMP CLDN 

JLY STMAP 



SAY CLEARING MEMORY 



START WITH MAP 
STORE MAP TO MEMORY 

SAVE MAP ZERO IN MAP ZERO SAVE AREA 

USE MAP ZERO FOR CLEAR MEMORY 
GET ZERO FROM A REGISTER 

GET NEXT MAP TO DO 

DONE? 

YES, NO MORE MAPS 

SET MAP ZERO SEQUENTIALLY 
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02318* 

02319 

02320 

02321 

02322 

02323 

02324* 

02325 

02326 

02327* 

02328* 

02329 

02330 

02331 

02332 

02333 

02334 

02335 

02336 

02337 

02338* 

02339* 

02340 

02341 

02342 

02343 

02344 

02345 

02346* 

02347* 

02348 

02349 

02350 

02351 

02352 

02353 
02354 

02355* 
02356* 
02357 

2358 

02359* 

02360* 



23465 002400 
23466 

23470 006404 

23471 105745 

23472 023656 
23473 

23474 000366 

23475 023460 



START ADDRESS ZERO 
CLEAR FIRST LOCATION 



23476 
23477 
23500 
23501 
23502 

23503 
23504 

23505 
23506 



002400 

000000 
000430 
000214 
023720 

000000 
022257 



23507 002400 

23510 000205 

23511 003000 

23512 000204 

23513 023737 

23514 000203 



23515 
23516 

23517 
23520 
23521 
23522 
23523 
23524 
23525 



003400 
102624 
104600 
023533 
104600 
024205 
102100 
102702 



23530 104600 

23531 024411 

23532 023515 



,EX 



CLA 

XSA1 '0' 

CLB.INB 

LDX ..B77777 COUNT FOR 32K 



MW11 

ISZ MAP 
JMP CLRM1 



CLDN CLA 

LMAP 

DEF 

DEF MZSV 
FXRX LDA SAVEW 

AND B37 

LWD1 

DEF 

JMP COMND 



CLEAR 32K MEMORY 
ON TO NEXT 32K 



CLA 

STA SAVEB 

CMA 

STA SAVEA 

LDA D2 

STA SAVEP 



RESTORE MAP ZERO AS WAS 

RESTORE FROM BUFFER 

RESTORE REGISTER X (WMAP VALUE) 



PUT ALT 1 MAP BACK AS IT WAS 
YES, BACK TO PROMPT 



FOR %E B HAS ZERO 
A HAS ALL 1S 
START AT P=2 



.RUN CCA SENT ALL 1'S 

OTA 24B TO TELL OS WE'VE BEEN HERE 
EXEX .JLB ENDVCP TELL CARD TO LEAVE VCP MODE 

BEXEX .JLB RSTOR NOW PUT EVERTHING BACK 

STF TURN 'EM BACK ON, IF THEY WERE ON 
STC 2 TURN ON BREAK 

XJMP ' SAVEW ','eSAVEP' ;LAUNCH THE USER WITH HIS 

OLD WMAP 

IF BREAK DISABLED 
EXEX2 .JLB CI.IZ FIX INTERFACE CARD 

JMP .RUN RESTART 

SEND END VCP MODE IF INTELLEGENT DRIVER 
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02361 23533 000530 

02362 23534 104600 
23535 024513 

02363 23536 000530 

02364 23537 023544 

02365 23540 104600 

23541 024463 

23542 000000 

23543 000530 

23544 062000 



ENDVCP STB RENDV 
.JLB CI. ID 

JMP RENDV, I 
LDA VCPEX 
.JLB DS.FT 



SINGLE STEP ROUTINE 



02366 

02367 

02368 

02369* 

02370* 

02371* 

02372* 

02373*. STEP .JLB GETCH 

02374* CPA .CR 

02375* JMP *+2 
02376* JMP CERR 
02377* STA TFLAG 
02378*STEP1 .JLB RSTOR 



NOP 

JMP RENDV, I 
VCPEX OCT 62000 



SAVE RETURN ADDRESS 
IS INTELLEGENT?? 

NO, DO NOTHING 

YES, GET END VCP COMMAND 

SEND IT TO CARD AND WAIT FOR FLAG 

TIME OUT, DONT WORRY ABOUT IT 

RETURN 

EXIT VCP COMMAND 



02379* 
02380* 
02381* 
02382* 

02383* 

02384* 

02385* 

02386* 

02387* 

02388 

02389 

02390 

02391 

02392 

02393* 

02394* 

02395 

02396 
02397 
02398 
02399 
02400 
02401 
02402 
02403 
02404 



STF 
CLC 3 
STC 2 



GET ONE CHARACTER 

IS IT "CR" ? 

YES, GO TO IT 

NO, YOU BLEW IT 

SET FLAG NON-ZERO => STEP OR TRACE 
RESTORE THE REGISTERS 

TURN INTERRUPTS BACK ON, IF NEEDED 

START I/O CHIP SEQUENCE 

ENABLE "BREAK" 



XJMP SAVEW,@SAVEP ; LAUNCH THE USER WITH HIS OLD WMAP 



SELF TEST. GO DO CLC 0,C AND THEN ON TO START 



23545 003400 

23546 000304 

23547 105762 

23550 021633 

23551 023552 

23552 020004 



23553 105762 

23554 021633 

23555 023643 

23556 002004 

23557 000000 

23560 023657 

23561 023571 

23562 023662 

23563 023602 

23564 023661 

23565 023624 



.TRAC CCA 

STA VCPTFLG 
JLY .PSET 

JMP *+1,I 
DEF START+2 



.LOAD JLY .PSET 

LDA SPTR 
INA 

LDA A, I 

CPA .CT 

JMP .CTU 

CPA .RM 

JMP .ROM 

CPA .DC 

JMP .DISC 



FLAG FOR SELFTEST 

CLEAR OUT MACHINE TO POWER ON STATE 

GO TEST 



RESET I/O FOR LOADERS 



GET FIRST CHAR 



CARTRIDGE TAPE ? 

YES, THE LEFT ONE 
THAT'S "R" AS IN PROM 

LOAD FROM PROM 
DISC MAYBE ? 

A LITTLE HPIB IF YOU PLEASE 
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02405 


23566 023660 




CPA .DS 


DS LOADER?? 


02406 


23567 023615 




JMP .DISTS 


LOAD OVER DS 


02407 


23570 022410 




JMP CERR2 


THAT AIN'T ONE OF MINE 


02408* 










02409 


23571 023716 


.CTU 


LDA .B20 


DEFAULT 


02410 


23572 104600 

23573 027572 




.JLB SCNSC 


PARSE SCETC 


02411 


23574 002404 




CLA.INA 




02412 


23575 102601 




OTA CPUST 


SAY IN LOADER 


02413 


23576 104600 

23577 026004 




.JLB CTU 


DO THE LOAD 


02414 


23600 023723 




JMP .BOOT?, I 


ARE WE BOOTING 


02415 


23601 023632 




JMP BTERR 


ERROR RETURN 


02416* 










02417* 










02418* 










02419 


23602 000503 


.ROM 


LDA TEMPO 


READ OR WRITE ? 


02420 


23603 023707 




CPA .W 




02421 


23604 022410 




JMP CERR2 


CANNOT WRITE TO ROM 


02422 


23605 023715 




LDA RMSC 


DEFAULT 


02423 


23606 104600 

23607 027572 




.JLB SCNSC 


GET SELECT CODE AND FILE NUMBER 


02424 


23610 104600 

23611 026364 




.JLB RMLDR 


GO TO PROM LOADER 


02425 


23612 023723 




JMP .BOOT?, I 


GOOD RETURN 


02426 


23613 023632 




JMP BTERR 


ERROR RETURN 


02427 


23614 025772 


.LDER 


DEF MES62 




02428* 










02429* 










02430 


23615 023714 


.DISTS LDA DSSC 


DEFAULT 


02431 


23616 104600 

23617 027572 




.JLB SCNSC 


PARSE SELECT CODE 


02432 


23620 104600 

23621 025040 




•JLB DSLD 


GO TO DS LOADER 


02433 


23622 023723 




JMP .BOOT?, I 


GOOD RETURN 


02434 


23623 023632 




JMP BTERR 


ERROR 


02435* 










02436 


23624 023713 


.DISC 


LDA DCSC 


DEFAULT 


02437 


23625 104600 

23626 027572 




.JLB SCNSC 


GET SELECT CODE ETC FROM STRING 


02438 


23627 104600 




.JLB DCLDR GO TO HPIB LOADER 




23630 026531 








02439 


23631 023723 




JMP .BOOT?, I 


GOOD RETURN 


02440* 










02441 


23632 104600 

23633 024411 


BTERR 


.JLB CI.IZ 


ENABLE VCP 


02442 


23634 023614 




LDA .LDER 


OUTPUT ERROR MESSAGE 
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02443 


23635 104600 

23636 024245 




.JLB 


PUTS 






02444 


23637 000265 




LDA 


LERR 


GET ERROR NUMBER 




02445 


23640 104600 

23641 024312 




• JLB 


OUTD 


OUTPUT ERROR NUMBER 




02446 


23642 022257 




JMP 


COMND 


ERROR RETURN 




02447* 














02448* 














02449* 














02450 


23643 000306 


SPTR 


DEF 


STRNG 


POINTER TO STRING 




02451* 














02453* 


CONSTANTS 


AND EQUATES 






02454* 














02455* 














02456 


23644 103003 


.ENTI 


OCT 


103003 


HALT 03, C FOR REENTERING FRONT 


PANEL 


02457 


23645 000015 


.CR 


OCT 


15 


"CARRIAGE RETURN" 




02458 


23646 000024 


.CTLT 


OCT 


24 


CONTROL T 




02459 


23647 000045 


.% 


OCT 


45 


114 II 




02460 


23650 000060 


ZERO 


OCT 


60 


"0" 




02461 


23651 000062 


.2 


OCT 


62 






02462 


23652 000063 


.3 


OCT 


63 






02463 


23653 000077 


• • 


OCT 


77 


II 9 It 




02464 


23654 000377 


..B377 OCT 377 






02465 


23655 001777 


..B1777 OCT 1777 






02466 


23656 077777 


..B77777 OCT 77777 






02467 


23657 041524 


.CT 


OCT 


041524 






02468 


23660 042123 


.DS 


OCT 


042123 






02469 


23661 042103 


.DC 


OCT 


042103 






02470 


23662 051115 


.RM 


OCT 


051115 






02471 


23663 000101 


.A 


OCT 


101 


"A" 




02472 


23664 000177 


.DEL 


OCT 


177 






02473 


23665 000102 


.B 


OCT 


102 


ETC 




02474 


23666 000103 


.C 


OCT 


103 


ETC 




02475 


23667 000104 


.D 


OCT 


104 


ETC 




02476 


23670 000105 


• E 


OCT 


105 






02477 


23671 000106 


.F 


OCT 


106 






02478 


23672 000107 


.G 


OCT 


107 






02479 


23673 000111 


.1 


OCT 


111 






02480 


23674 000114 


.L 


OCT 


114 






02481 


23675 000115 


.M 


OCT 


115 






02482 


23676 000116 


• N 


OCT 


116 






02483 


23677 000117 


.0 


OCT 


117 






02484 


23700 000120 


• P 


OCT 


120 






02485 


23701 000121 


• Q 


OCT 


121 






02486 


23702 000122 


.R 


OCT 


122 






02487 


23703 000123 


-S 


OCT 


123 






02488 


23704 000124 


.T 


OCT 


124 
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02489 


23705 


000125 


.U 


OCT 


125 


02490 


23706 


000126 


• V 


OCT 


126 


02491 


23707 


000127 


.w 


OCT 


127 


02492 


23710 


000130 


.X 


OCT 


130 


02493 


23711 


000131 


.Y 


OCT 


131 


02494 


23712 


000132 


.Z 


OCT 


132 


02495 


23713 


002027 


DCSC 


OCT 


002027 


02496 


23714 


000024 


DSSC 


OCT 


000024 


02497 


23715 


000022 


RMSC 


OCT 


000022 


02498 


23716 


000020 


.B20 


OCT 


000020 


02499 


23717 


000010 


.B10 


OCT 


000010 


02500 


23720 


000037 


B37 


OCT 


000037 


02501 


23721 


100000 


BIT15 


OCT 


100000 


02502 


23722 


000100 


.B100 


OCT 


000100 


02503 


23723 


024077 


.BOOT? DEF BOOT? 


02504 


23724 


177777 


N1 


DEC 


-1 


02505 


23725 


177776 


N2 


DEC 


-2 


02506 


23726 


177774 


N4 


DEC 


-4 


02507 


23727 


177770 


N8 


DEC 


-8 


02508 


23730 


177766 


N10 


DEC 


-10 


02509 


23731 


177760 


N16 


DEC 


-16 


02510 


23732 


177751 


N23 


DEC 


-23 


02511 


23733 


177750 


N24 


DEC 


-24 


02512 


23734 


177745 


N27 


DEC 


-27 


02513 


23735 


177740 


N32 


DEC 


-32 


02514 


23736 


177720 


N48 


DEC 


-48 


02515 


23737 


000002 


D2 


DEC 


+2 


02516 


23740 


000007 


D7 


DEC 


+7 


02517 


23741 


000040 


D32 


DEC 


+32 


02518 


23742 


000203 


BUFF 


DEF 


SAVEP 


02519 


23743 


000470 


.DIG1 


DEF 


DIG1 


02520 


23744 


102500 


.LIA 


OCT 


102500 


02521 


23745 


000524 


.RTRN 


JMP 


XEQT.I 


02523* 












02524* 












02525* 


MESSAGE " 


DEFS" 






02526* 












02527 


23746 


025340 


CRLF 


DEF 


MESOO 


02528 


23747 


025313 


VERMG 


DEF 


MES01 


02529 


23750 


025342 


PR MPT 


DEF 


MES02 


02530 


23751 


025350 


HELP 


DEF 


MES09 


02531 


23752 


025762 


ERMES 


DEF 


MES46 


02532 


23753 


025667 


SPC2 


DEF 


MES11 


02533 


23754 


025703 


SPC3 


DEF 


MES22 


02534 


23755 


025677 


MMESS 


DEF 


MES15 


02535 


23756 


025701 


TMESS 


DEF 


MES16 


02536 


23757 


025705 


CLMES 


DEF 


MES32 



SELECT CODE OF DISC 
SELECT CODE FOR DS LOADER 
SELECT CODE OF ROM CARD 
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02537 


23760 025714 


PRMES DEF MES33 


02538 


23761 025720 


MPMES DEF MES35 


02539 


23762 025723 


PGMES DEF MES36 


02540 


23763 025726 


KMES DEF MES37 


02541 


23764 025751 


ECMES DEF MES43 


02542 


23765 025734 


PEMES DEF MES38 


02543 


23766 025742 


SELF ERR DEF MES41 


02544 


23767 025734 


SOFTERR DEF MES38 


02545 


23770 025756 


RMESS DEF MES44 


02546 


23771 025671 


PMESS DEF MES12 


02547 


23772 025675 


AMESS DEF MES13 


02548 


23773 025676 


BMESS DEF MES1 4 


02549 


023774 


E0P1 EQU • 


02550* 






02551 


24000 


ORG EPROM+4 
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02553 




024000 


P2 


EQU * 








02554* 
















02555* 


CONSTANTS 


AND SUCH FOR THIS PAGE 




02556* 
















02557 


24000 


000010 


..BKS 


OCT 


10 


ASCII 


: "BACKSPACE" 


02558 


24001 


000102 


,.B 


OCT 


102 






02559 


24002 023632 


.BTERR 


DEF 


BTERR 


DISC ERROR 


02560 


24003 000177 


..DEL 


OCT 


177 


ASCII 


DELETE 


02561 


24004 


000005 


.ENQ 


OCT 


5 


ASCII 


ENQ 


02562 


24005 


023435 


.PRSET 


DEF 


PRSET 


ENTRY FOR PRESET 


02563 


24006 


022172 


.AGAIN 


DEF 


AGAIN 






02564 


24007 


022257 


.COMND 


DEF 


COMND 






02565 


24010 


025704 


• SPC1 


DEF 


MES22+1 






02566 


24011 


025667 


.SPC2 


DEF 


MES11 






02567 


24012 


025347 


..BEL 


DEF 


MES07 






02568 


24013 


001700 


STRTR 


DEF 


1700B 


COMMUNICATION AREA 


02569 


24014 


023517 


EXEX.P1 DEF EXEX 


CROSS TO PAGE 1 


02570 


24015 


022412 


CERR.P1 DEF CERR 




ii 


02571 


24016 


023521 


..RUN 


DEF BEXEX 






02572 


24017 


022255 


..NEXT 


DEF NEXT 






02573 


24020 


000015 


• • *CR 


OCT 


15 




"CARRIAGE RE' 


02574 


24021 


000127 


• • • w 


OCT 


127 






02575 


24022 


000077 


..? 


OCT 


77 




tt?» 


02576 


24023 


000060 


.ZERO 


OCT 


60 




"0" 


02577 


24024 


000001 


• B1 


OCT 


000001 






02578 


24025 


000007 


• B7 


OCT 


7 






02579 


24026 


000017 


.B17 


OCT 


000017 






02580 


24027 


000024 


.B24 


OCT 


000024 






02581 


24030 


000101 


.B101 


OCT 


000101 






02582 




024003 


.B177 


EQU 


..DEL 






02583 


24031 


000377 


• B377 


OCT 


000377 






02584 


24032 060000 


.B60K 


OCT 


060000 






02585 


24033 


177777 


.N1 


DEC 


-1 






02586 


24034 


177400 


.BLR 


OCT 


177400 






02587 


24035 


177773 


.N5 


DEC 


-5 






02588 


24036 


177772 


.N6 


DEC 


-6 






02589 


24037 


177771 


.N7 


DEC 


-7 






02590 


24040 


177770 


• N8 


DEC 


-8 






02591 


24041 


177766 


.N10 


DEC 


-10 






02592 


24042 


177730 


..N40 


DEC 


: -40 






02593 


24043 


177720 


.N48 


DEC 


-48 


THIS 


IS NEGATIVE "i 


02594 


24044 


177745 


• N27 


DEC 


-27 






02595 


24045 


177746 


• N26 


DEC 


-26 






02596 


24046 


101400 


.N32000 DEC 


: -32000 






02597 


24047 


177677 


.N65 


DEC 


-65 


THIS 


IS NEGATIVE "i 


02598 


24050 


177637 


.N97 


DEC 


-97 






02599 


24051 


177645 


.N91 


DEC 


-91 






02600 


24052 


000002 


.D2 


DEC 


+2 







C-64 



VIRTUAL CONTROL PANEL PAGE 2 



02601 
02602 

02603 
02604 
02605 
02606 
02607 
02608 
02609 
02610 
02611 
02612 

02613 
02614 

02615 

02617* 

02618 

02619 

02620 

02621 

02622 

02623* 
02624 

02625 
02626 
02627 
02628 
02629 
02630 

02631 
02632 

02633 
02634 

02635 
02636 
02637 
02638 
02639 
02640 

02641 
02642 
02643 
02644 
02645 
02646 



24053 
24054 
24055 
24056 
24057 
24060 
24061 
24062 

24063 
24064 
24065 
24066 

24067 
24070 
24071 



000012 
000020 
000040 
000050 
000100 
000141 

000133 
000466 
000470 
000467 
000472 
000500 
000473 
000475 
000470 



24072 024001 

24073 000503 

24074 024765 

24075 001200 

24076 000360 



24077 

24100 

24101 

24102 

24103 

24104 

24105 

24106 

24107 

24110 

24111 

24112 

24114 

24115 

24116 

24117 

24120 

24121 

24122 
24124 
24125 
24126 
24127 
24130 



024052 
000203 
002400 
000366 

000000 
105762 
027647 
024013 
000205 
000246 

002004 
000360 
007004 
024765 
024765 
000356 



002004 
001200 
006004 
105741 
000000 



.D10 

.D16 

.D32 

.D40 

.D64 

.D97 

.D91 

.D310 

.D312 

-D31 1 

.D314 

.D320 

.D315 

.D317 

..DG1 



DEC +10 
DEC +16 
DEC +32 
DEC +40 
DEC +64 
DEC +97 
DEC +91 
DEC 310 
DEC 312 
DEC 311 
DEC 314 
DEC 320 
DEC 315 
DEC 317 
DEF DIG1 



MRBT LDA . .B 

STA TEMPO 
MRBT2 LDA .SPTR 

RAL 

STA STORE. POINTER 

BOOT? LDA .D2 

STA SAVEP 
CLA 

STA MAP 
LWD1 
DEF 
JLY STMAP 



MAKE IT A BOOT 



SET P FOR STARTING ADDRESS 



STORE STRING THROUGH MAP 

POINT AT ZERO 

SET UP MAP ZERO AGAIN 



LDA STRTR 
STA SAVEB 
LDB MSIZE 
XSB1 »§A' 
INA 

LDB STORE. 
CMB.INB 
ADB .SPTR 
ADB .SPTR 
ADB LSTR 

XSB1 '§A' 

INA 

RAL 

INB 

CBX 

LDB A 



POINT AT COMMUNICATION AREA 
B SHOULD POINT AT COMMUNICATION AREA 
GET MEMORY SIZE 
CROSS STORE ' 



POINTER 



SUBTRACT STORE. POINTER 

ADD START OF CHARS » 2 

LAST CHAR B HAS NUMBER OF CHARS 

IN STRING 
SAVE NUMBER OF CHARS 

MAKE IT A BYTE ADDRESS 
COPY ONE EXTRA CHARACTER 
SAVE COUNT IN X 
STORE LOCATION 



C-65 



VIRTUAL CONTROL PANEL PAGE 2 



02647 

02648 

02649 

02650 

02651 

02652 

02653* 

02654* 

02655* 

02656* 

02657* 
02658 

02659 
02660 
02661 
02662 
02663 
02664 
02665 
02666 
02667 
02668 
02669 
02670 
02671 
02672 

02673 
02674 

02675 
02676 
02677 

02678 
02679 
02680 
02681 
02682 
02683 
02684 
02685 
02686 
02687 
02688 
02689* 



24131 
24132 

24133 
24134 
24135 



000360 

000503 
024001 
024016 



LDA STORE. POINTER GET FROM LOCATION 



24136 024017 



MB01 

LDA TEMPO 
CPA . .B 
JMP ..RUN, I 
JMP ..NEXT, I 



MOVE STRING TO USER MAP 

IS BOOT? 

YES, GO DO IT 
NO, GO GET COMMAND 



REENT IS WHEN BOOTEX OR A DIAGNOSTIC CALLS BACK THE FRONT PANEL 



24137 
24140 
24142 
24143 
24144 
24146 
24147 
24150 
24152 

24153 
24154 
24156 
24157 
24160 
24161 
24163 
24164 
24165 
24166 
24167 
24170 
24171 
24172 

24173 
24174 
24175 
24176 
24177 
24200 
24201 
24202 
24203 
24204 



002004 

000270 
002004 

000267 
002004 

000274 
002004 

000273 
000275 
002004 

000276 
105762 
021633 
002400 
000265 
104600 
026524 
024175 
102702 
024002 
024001 
000202 
004010 
002400 
000503 
003400 
000204 
024074 



REENT INA 
XLB1 
STB 
INA 
XLB1 
STB 
INA 
XLB1 
STB 
INA 
XLB1 
STB 
STB 
INA 
XLB1 
STB 
JLY 



POINT AT HPIB ADDRESS 
•@A' GET SUBCHANNEL 
SUBCH 

POINT AT UNIT NO. 
'@A' GET UNIT 
UNIT 

POINT AT SECTOR NUMBER 



'@A» 

FILE 



GET SECTOR NUMBER 
SAVE IT VW=1 
POINT AT CYLINDER OFFSET 
•@A' GET CYLINDER OFFSET 
CYLNDR. OFFSET 
HEAD. CYLINDER ; SAVE IT VW=2 



•@A' 
SECTR. TRACK 
.PSET 



GET VECTOR WORD THREE 
VW=3 



CLA 

STA LERR 

.J LB DCRLD 

JMP RENT2 



STC 

JMP 

RENT2 LDA 



.BTERR.I 

..B 
LDB SAVEE 
SLB 
CLA 

STA TEMPO 
CCA 

STA SAVEA 
JMP MRBT2 



NO LOADER ERROR 

GO LOAD FROM DISK 

GOOD RETURN 

ENABLE BREAK 

ERROR RETURN 

B FOR BOOT 

GET E REG VALUE 

IS SET? 

ZERO FOR BOOT FLAG 

SAVE BOOT FLAG 

A GETS -1 FOR CALL BACK 
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02691* 
02692* 

02693* 
02694* 
02695* 
02696* 
02697* 
02698* 
02699* 
02700* 
02701* 
02702 

02703 
02704 

02705 
02706 

02707 
02708 
02709 
02710 
02711 
02712 
02713 
02714 
02715 
02716 
02717 
02718 
02719 
02720 
02721 
02722 
02723 
02724 
02725 
02726 
02727 
02728 
02729 

02730 

02731* 

02732* 

02733* 

02734* 

02735* 



ROUTINE TO RESTORE "A", "B", ETC BEFORE RUNNING 
CALLING SEQUENCE: 

JLB* RSTOR 

P+1 INTERRUPTS WERE ON 

P+2 INTERRUPTS WERE OFF 



24205 
24206 
24207 
24210 
24211 
24212 
24213 
24214 
24215 
24216 
24217 
24220 
24221 
24222 

24223 
24224 
24225 
24226 
24227 
24230 
24231 
24232 
24233 
24234 
24235 
24236 
24237 
24240 
24241 
24242 
24243 
24244 



000546 

002400 

102601 

105745 

000207 

105755 

000210 

000200 

006400 

000200 

000507 

002011 

000546 

000206 

001621 

002002 

102602 

002040 

103102 

000201 

103101 

000010 

102101 

000202 

001500 

000212 

000211 

104200 
002204 
000546 



RSTOR STB RRSTO 
CLA 

OTA CPUST 
LDX SAVEX 

LDY SAVEY 



SAVE RETURN ADDRESS 

INDICATE IN USER PROGRAM 
RESTORE X AND Y 



GET INTERRUPT STATUS 
CLEAR IT FOR 

NEXT TIME 
RESET NOT FIRST TIME FLAG 
WERE INTERRUPTS ON ? 

NO, BUMP RETURN ADDRESS 
FETCH OLD GLOBAL REGISTER 
IF IT WAS ON => E <= 1 
WAS THE GR ZERO, IF SO NO OTA 
RESTORE GLOBAL REGISTER VALUE 
WAS IT ON ? 

YES, TURN IT BACK ON 
FETCH "0" REPLICA 
WAS IT 

OFF ? 
NO, BUT YOU WERE CLOSE 
PUT "E" BACK 

THE WAY YOU FOUND IT 
RESTORE Z 

RESTORE Q, POSSIBLY TURN ON R3 



LDA SAVE I 

CLB 

STB SAVE I 

STB FIRST 

SLA.RSS 

ISZ RRSTO 

LDA SAVEG 

ELA.ARS 

SZA 

OTA GR 

SEZ 

CLF GR 

LDA SAVEO 

CLO 

SLA 

STO 

LDA SAVEE 

ERA 

LDA SAVEZ 

CAZ 

LDA SAVEQ 

CACQ 

DLD SAVEA+2000B NOW "A" AND "B" 

JMP RRSTO, I 



OUTPUT A MESSAGE, TERMINATE ON NULL BYTE 
ENTER WITH "A" = DEF MESSAGE 
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02736* 

02737 

02738 

02739 

02740 

02741 

02742* 

02743 

02744 

02745 

02746 

02747 

02748 
02749 
02750 
02751 
02752 
02753 

02754 

02755* 

02756 

02757 

02758 

02759 
02760 

02761 

02762* 

02763 

02764 

02765 

02766 

02767 

02768* 

02769 

02770 

02771 

02772 
02773* 



24245 000527 

24246 001200 

24247 000255 

24250 024042 

24251 000226 



24252 
24253 
24254 
24255 
24256 
24257 
24260 
24261 
24262 
24263 
24264 
24265 
24266 
24267 



24270 
24271 
24272 
24273 
24274 
24275 
24276 



000255 
105763 
002003 
000527 
104600 
024560 
000255 
000226 
024252 
024042 
000226 
104600 
024270 
024252 



000531 
104600 
024513 
024277 
104600 
024520 
000531 



24277 102501 

24300 001727 

24301 024055 

24302 002002 

24303 000531 

24304 024004 

24305 104600 

24306 024560 

24307 104600 

24310 024540 

24311 000531 



PUTS STB RPUTS 
RAL 

STA PPNTR 
LDA ..N40 
STA PUTCT 

P. 1 LDB PPNTR 
LBT 

SZA.RSS 
JMP RPUTS, I 
.JLB PUTCH 

ISZ PPNTR 
ISZ PUTCT 
JMP P.1 
LDA ..N40 
STA PUTCT 
.JLB .ENQAK 

JMP P.1 



SAVE RETURN ADDRESS 
MAKE IT A BYTE ADDRESS 
SAVE MESSAGE DEF 

COUNTER FOR ENQ ACK 

FETCH A WORD 

NULL ? 

YES, BAIL OUT 
NO, PRINT IT 

YES, BUMP POINTER 
CHECK CHAR COUNT 
DO IT ALL AGAIN 

COUNT FOR NEXT 40 CHARS 
DO ENQ ACK HANDSHAKE 



•ENQAK STB RENQAK 

.JLB CI. ID IDENTIFY 

JMP .ENQAS ASCII 

.JLB TG.TB TRANSMIT BUFFER TO DS 

JMP RENQAK, I RETURN 

.ENQAS LIA CPUST GET SWITCHES 
ALF.ALF 

AND .D32 MASK ENQ SWITCH 

SZA MUST BE ZERO FOR ENQ TO WORK 
JMP RENQAK, I RETURN DOING NOTHING 



LDA .ENQ 
.JLB PUTCH 



GET ENQ CHAR 



.JLB GETCH 

JMP RENQAK, I RETURN 
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02775* 










02776* 










02777* 


ROUTINE TO 


OUTPUT WHAT IS IN 


A AS A DECIMAL INTEGER. 


02778* 


POSITIVE NUMBERS ONLY 




02779* 










02780 


24312 000537 


OUTD 


STB ROUTD 




02781 


24313 024071 




LDB ..DG1 


POINT TO DIGIT BUFFER 


02782 


24314 000217 




STB PNTR 




02783 


24315 006400 




CLB 




02784 


24316 000251 




STB CNTR 


DIGIT COUNTER 


02785 


24317 006400 


OTDL 


CLB 


MAKE TWO WORD VALUE 


02786 


24320 100400 

24321 024053 




DIV .D10 


DIVIDE BY 10 


02787 


24322 000217 




STB PNTR, I 


SAVE REMAINDER AS DIGIT 


02788 


24323 000217 




ISZ PNTR 


POINT AT NEXT DIGIT 


02789 


24324 000251 




ISZ CNTR 


ADD 1 TO COUNT 


02790 


24325 002002 




SZA 


QUOTIENT ZERO YET?? 


02791 


24326 024317 




JMP OTDL 


NO, GET NEXT DIGIT 


02792* 










02793 


24327 000251 




LDA CNTR 




02794 


24330 003004 




CMA.INA 


MAKE COUNT NEGATIVE 


02795 


24331 000251 




STA CNTR 




02796 


24332 000217 


0TDL2 


LDA PNTR 




02797 


24333 024033 




ADA ..N1 


SUBTRACT ONE 


02798 


24334 000217 




STA PNTR 


POINT AT THE PREVIOUS CHAR 


02799 


24335 000217 




LDA PNTR, I 


GET DIGIT 


02800 


24336 024023 




ADA .ZERO 


MAKE ASCII 


02801 


24337 104600 
24340 024560 




.JLB PUTCH 


OUTPUT THE CHAR 


02802 


24341 000251 




ISZ CNTR 


MORE LEFT?? 


02803 


24342 024332 




JMP 0TDL2 


YES 


02804* 










02805 


24343 000537 




JMP ROUTD, I 


RETURN 


02807* 










02808* 










02809* 


ROUTINE TO OUTPUT HEX OR OCTAL DIGITS * 


02810* 


ENTER WITH NUMBER IN "A" REGISTER 


02811* 


IF "DFLAG 


" < 


THEN OUTPUT ( 


DNLY ONE DIGIT 


02812* 










02813* 










02814 


24344 000534 


OUTN 


STB ROUTN 


RETURN ADDRESS 


02815 


24345 000260 




STA TEMP 


SAVE NUMBER 


02816 


24346 024010 




LDA .SPC1 


GO OUTPUT ONE SPACE 


02817 


24347 104600 
24350 024245 




.JLB PUTS 


SPACE 


02818 


24351 000260 




LDA TEMP 


RESTORE NUMBER 


02819 


24352 000363 




LDB DFLAG 


FETCH DATA TYPE FLAG 
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02820 


24353 006021 




SSB.RSS 


ONE DIGIT ? ( < => ONE 


DIGIT ) 


02821 


24354 024362 




JMP OT1 


NOPE, MORE THAN THAT 




02822 


24355 024024 




AND .B1 






02823 


24356 024023 




IOR .ZERO 






02824 


24357 104600 
24360 024560 




.J LB PUTCH 


YEP, JUST ONE OUTPUT IT 




02825 


24361 024405 




JMP OT2 


NOW LEAVE 




02826 


24362 024035 


OT1 


LDB .N5 


SET DIGIT ( DEC -5 ) 




02827 


24363 000251 




STB CNTR 


COUNTER 




02828* 












02829* 


NONSENSE 


TO HANDLE SIGN BIT 


IN OCTAL MODE 




02830» 












02831 


24364 000066 




CLE.ELA 






02832 


24365 000260 




STA TEMP 


SAVE PARTIAL 




02833 


24366 024023 




LDA .ZERO 


IS IT 




02834 


24367 002040 




SEZ 


ZERO ? 




02835 


24370 002004 




INA 


NO, MAKE IT A ONE 




02836 


24371 104600 

24372 024560 




.JLB PUTCH 


PRINT IT 




02837 


24373 000260 




LDA TEMP 


FETCH PARTIAL 




02838 


24374 001723 


L1 


ALF.RAR 


NEXT DIGIT 




02839 


24375 000260 




STA TEMP 


SAVE NEW PARTIAL 




02840 


24376 024025 




AND .B7 


SAVE ONLY LOW NIBBLE ( 


DEC +15 ) 


02841 


24377 024023 




ADA .ZERO 


IS IT GREATER ( 


DEC -10 ) 


02842 


24400 104600 

24401 024560 




.JLB PUTCH 


PRINT IT 




02843 


24402 000260 




LDA TEMP 


FETCH PARTIAL 




02844 


24403 000251 




ISZ CNTR 


DONE ? 




02845 


24404 024374 




JMP L1 


NOPE 




02846 


24405 024010 


OT2 


LDA .SPC1 


YEP, NOW 




02847 


24406 104600 

24407 024245 




.JLB PUTS 


OUTPUT 2 SPACES 




02848 


24410 000534 




JMP ROUTN.I 


BYE BYE 




02849* 












02850* 












02851* 












02852* 












02853* 


ROUTINE TO "BEEP" AT ERRORS 






02854* 












02855* 












02856* 












02857* 












02858* 


OUTPUT WHAT EVER IS IN "A" 






02859* 
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02860* 










02861*UTCH STB RPUTC 








02862* 


OTA DATA 


SEND CHARACTER TO TERMINAL 




02863* 


STC DATA.C 


START OPERATION 






02864* 


SFS DATA 


DONE YET ? 






02865* 


JMP *-1 


NOPE 






02866* 


JMP RPUTC, I 


YES, EXIT 






02867* 










02868* 










02869* 


GET ONE CHARACTER, RETURNED IN THE LOW END OF "A" 




02870* 










02871* 










02872*ETCH STB RGETC 








02873* 


LDA ..ICW 


PUT ASIC INTO 






02874* 


OTA CMND 


INPUT MODE 






02875* 


STC DATA.C 


START INPUT OPERATION 




02876*1 


.00 SFC DATA 


IS IT SOUP YET? 






02877* 


JMP GT.01 


YES ! 






02878* 


LIA STATS 


NO - CHECK FOR : 


BREAK 




02879* 


RAL 








02880* 


SSA 








02881* 


JMP .PRSET.I 


YES - BREAK 






02882* 


JMP GT.,00 


NO KEEP WAITING 






02883* 










02884*T.01 LIA DATA 


OK, LET'S SEE WHAT YOU'VE DONE 




02885* 


AND .B377 


WELL, HALF OF 


IT ANYWAY 




02886* 


STA CHAR 


SAVE IT FOR ECHO 




02887* 


JMP RGETC, I 








02889* 










02890* 










02891 


24411 000575 CI. 


,IZ STB RCI.IZ 






02892 


24412 102102 


STF GR 


CLEAR ALL INTERFACES 




02893 


24413 002400 


CLA 






02894 


24414 102602 


OTA GR 






02895 


24415 000514 


LDA VCPSC 


(P+1) ASCII 




02896 


24416 103602 


OTA GR.C 


TURN ON CARD 




02897 


24417 107723 


CLC 23B.C 


TURN OFF DMA 




02898 


24420 104600 

24421 024513 


.JLB CI. ID 


INITIALIZE INTERFACE 




02899 


24422 024616 


JMP AS.IZ 






02900* 










02901 


24423 002400 DS 


.IZ CLA 


INITIALIZE DS INTERFACE 




02902 


24424 000000 


ISZ A 


DELAY TIME THIS MUST BE 


> 


02903 


24425 024424 


JMP *-1 


FOR SET UP 




02904 


24426 024434 


LDA VCPDS 


VCP COMMAND 




02905 


24427 104600 
24430 024463 


.JLB DS.FT 


TRY IT 





1 MS 
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02906 


24431 


024005 




JMP 


•PRSET.I 


NO GOOD 


02907 


24432 
24433 


104600 
024577 




.JLE 


» CS.CM 


TELL CARD AGAIN TO GO INTO VCP MODE 


02908 


24434 


067400 


VCPDS 


OCT 


67400 




02909 


24435 


000575 




JMP 


RCI.IZ.I 


RETURN 


02910* 














02911 


24436 


024031 


DS.TG 


LDA 


.B377 


ADD RUB OUT CREQUEST INPUT> 


02912 


24437 
24440 


104600 
024566 




.JLE 


J 0UT2C 


OUTPUT TWO CHARACTERS <«« 


02913 


24441 
24442 


104600 
024577 




.JLE 


J CS.CM 


TELL CARD TO TRANSMIT 


02914 


24443 


060400 




OCT 


60400 




02915 


24444 


104600 




.JLB CS.CM 


NOW ASK FOR BUFFER 




24445 


024577 










02916 


24446 


061400 




OCT 


61400 




02917 


24447 


000577 




JMP 


RTG.BF.I 


RETURN 


02918* 














02919 


24450 
24451 


104600 
024577 


DS.IN 


.JLE 


» CS.CM 


ASK FOR INPUT 


02920 


24452 


061000 




OCT 


61000 




02921 


24453 


024031 




AND 


.B377 


MASK 


02922 


24454 


024545 




JMP 


GETCR 


RETURN VIA GETCH 


02923* 














02924 


24455 


024032 


DS.OT 


IOR 


.B60K 


DS PUT BYTE REQUEST 


02925 


24456 
24457 


104600 
024607 




.JLE 


i 1.0 




02926 


24460 


000541 




JMP 


RPUTC.I 




02927* 














02929* 














02930 


24461 


000602 


DS.WF 


STB 


RDS.FT 


SAVE RETURN ADDRESS 


02931 


24462 


024466 




JMP 


DS.FT+3 


SKIP OUTPUT JUST FLAG 


02932* 














02933 


24463 000602 


DS.FT 


STB 


RDS.FT 


RETURN ADDRESS 


02934 


24464 


102630 




OTA 


DATA 




02935 


24465 


103730 




STC 


DATA.C 




02936 


24466 


024046 




LDB 


.N32000 


40 SEC TIME OUT, MACHINE INDEPENDENT 


02937 


24467 


102230 


FTLP 


SFC 


DATA 


WAIT FOR FLAG 


02938 


24470 


024477 




JMP 


FTGF 


GOT IT 


02939 


24471 


000245 




LDA 


TBGCNT 




02940 


24472 002306 




CCE, 


INA.SZA 


WAIT 1.25 MS 
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02941 


24473 024472 






JMP *-1 




02942 


24474 


000001 






ISZ B 




02943 


24475 


024467 






JMP FTLP 


NOT DONE, CHECK FLAG AGAIN 


02944 


24476 


000602 






JMP RDS.FT.I 


TIMED OUT 


02945 


24477 


000602 


FTGF 


ISZ RDS.FT 


GOT THE FLAG 


02946 


24500 


000602 






JMP RDS.FT.I 


GOOD RETURN 


02947* 














02948 


24501 


067400 


DSVCP 


OCT 67400 




02949* 














02950 


24502 


000603 


DS. 


CM 


STB RDS.CM 


SAVE RETURN ADDRESS 


02951 


24503 000001 






LDA B,I 


GET COMMAND 


02952 


24504 


104600 






.JLB DS.FT 


WAIT FOR FLAG 




24505 024463 










02953 


24506 


025140 






JMP DSLER 


DS LOADER ERROR 


02954 


24507 


102530 






LIA DATA 


GET DATA 


02955 


24510 


000603 






ISZ RDS.CM 


ADJUST RETURN ADDRESS 


02956 


24511 


000000 






LDB A 


BOTH ! ! ! ! 


02957 


24512 


000603 






JMP RDS.CM, I 


RETURN 


02958* 














02959* 














02960* 














02961* 














02962* 














02963* 














02964* 














02966 


24513 


000576 


CI. 


,ID 


STB RCI.ID 




02967 


24514 


000515 






LDB ASFLG 


CHECK WHICH INTERFACE 


02968 


24515 


006003 






SZB.RSS 




02969 


24516 


000576 






ISZ RCI.ID 


INTELLIGENT TYPE 


02970 


24517 


000576 






JMP RCI.ID, I 


RETURN 


02971* 














02972 


24520 


000600 


TG. 


.TB 


STB RTG.TB 




02973 


24521 
24522 


104600 
024513 






.JLB CI. ID 


IDENTIFY INTERFACE 


02974 


24523 


000600 






JMP RTG.TB, I 


ASCII, DO NOTHING 


02975 


24524 


003400 






CCA 


TRANSMIT TWO -1 BYTES TO SAY 
TRANSMIT BUFFER 


02976 


24525 
24526 


104600 
024566 






.JLB 0UT2C 




02977 


24527 
24530 


104600 
024577 






.JLB CS.CM 


TELL CARD TO TRANSMIT 


02978 


24531 


060400 






OCT 60400 




02979 


24532 


000600 






JMP RTG.TB, I 


RETURN 


02980 
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02981 


24533 


000577 


TG.BF 


STB RTG.BF 


TRANSMIT BUFFER & REQUEST Ni 


02982 


24534 
24535 


104600 
024513 




.JLB CI. ID 


IDENTIFY INTERFACE 


02983 


24536 


000577 




JMP RTG.BF, I 


RETURN <N0 FUNCTION> 


02984 


24537 


024436 




JMP DS.TG 


DS 1000 


02985* 












02986 




024540 


GETCH 


EQU * 




02987 


24540 


000542 


IN1C 


STB RGETC 




02988 


24541 
24542 


104600 
024513 




..JLB CI. ID 


IDENTIFY THE INTERFACE 


02989 


24543 


024632 




JMP AS. IN 


ASCII 


02990 


24544 


024450 




JMP DS.IN 


DS 1000 


02991* 












02992 


24545 


024050 


GETCR 


ADA .N97 


FOLD 6BIT ASCII BY 


02993 


24546 


002020 




SSA 


SUBTRACTING TO TEST 


02994 


24547 


024556 




JMP GETCR2 


IS < a SO DO NOTHING 


02995 


24550 


024045 




ADA .N26 


CHECK FOR Z 


02996 


24551 


002021 




SSA.RSS 


GREATER THAN Z??? 


02997 


24552 


024055 




ADA .D32 


DONT FOLD THESE 


02998 


24553 


024061 




ADA .D91 


DO FOLDING 


02999 


24554 


000261 


GETCR3 STA CHAR 


SAVE CHARACTER 


03000 


24555 


000542 




JMP RGETC, I 


RETURN 


03001* 












03002 


24556 


024060 


GETCR2 ADA .D97 


UNDO SUBTRACT 


03003 


24557 


024554 




JMP GETCR3 




03004 












03005 




024560 


PUTCH 


EQU * 




03006 


24560 


000541 


OUT1C 


STB RPUTC 




03007 


24561 


024031 




AND .B377 


MASK OFF LOWER CHARACTER 


03008 


24562 
24563 


104600 
024513 




.JLB CI. ID 


IDENTIFY 


03009 


24564 


024640 




JMP AS.OT 




03010 


24565 


024455 




JMP DS.OT 


DS 1000 


03011* 












03012 


24566 


000606 


0UT2C 


STB R0UT2C 




03013 


24567 


000260 




STA TEMP 


SAVE 


03014 


24570 


001727 




ALF.ALF 


POSITION 


03015 


24571 
24572 


104600 
024560 




.JLB PUTCH 


OUTPUT UPPER HALF 


03016 


24573 


000260 




LDA TEMP 


GET WORD AGAIN 


03017 


24574 
24575 


104600 
024560 




.JLB PUTCH 


OUTPUT LOWER HALF 


03018 


24576 


000606 




JMP R0UT2C.I 




03019* 
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03021* 














03022 


24577 


000605 


CS. 


CM 


STB RCS.CM 


SAVE RETURN ADDRESS 


03023 


24600 


000001 






LDA B,I 


GET COMMAND 


03024 


24601 
24602 


104600 
024607 






.JLB 1.0 


DO I/O 


03025 


24603 000605 






ISZ RCS.CM 


ADJUST RETURN ADDRESS 


03026 


24604 


000605 






JMP RCS.CM, I 


RETURN 


03027* 














03028 


24605 


000602 


CS, 


.WF 


STB RDS.FT 


RETURN ADDRESS 


03029 


24606 


024466 






JMP DS.FT+3 


WAIT FOR FLAG ONLY 


03030* 














03031* 














03032 


24607 


000610 


1.0 


STB RI.O 


RETURN ADDRESS 


03033 


24610 


102630 






OTA DATA 


OTB ??? 


03034 


24611 


103730 






STC DATA.C 


START TRANSFER 


03035 


24612 


102330 


1. 00 


SFS DATA 




03036 


24613 


024612 






JMP I. 00 


KEEP TRYING 


03037 


24614 


102530 


1.01 


LIA DATA 


GET DATA 


03038 


24615 


000610 






JMP RI.O, I 


RETURN 


03039* 














03041 


24616 


102532 


AS, 


.11 


LIA STATS 


CLEAR BREAK BIT 


03042 


24617 


024645 






LDA TCCWO 




03043 


24620 


102632 






OTA STATS 


SET TRANSMITT 


03044 


24621 


102631 






OTA CMND 


(REMOVE DIAGNOSTIC) 


03045 


24622 


002400 






CLA 




03046 


24623 


102630 






OTA DATA 


TRANSMIT A NUL 


03047 


24624 


103730 






STC DATA.C 




03048 


24625 


102230 






SFC DATA 


WAIT FOR FLAG 


03049 


24626 


000575 






JMP RCI.IZ.I 


RETURN 


03050 


24627 


000000 






ISZ A 


TEST FOR TIME OUT 


03051 


24630 


024625 






JMP *-3 




03052 


24631 


024005 






JMP .PRSET.I 


GO RESET COMPUTER 


03053* 














03054 


24632 024646 


AS 


.IN 


LDA TCCWI 


INPUT CONTROL WORD 


03055 


24633 


102631 






OTA CMND 




03056 


24634 
24635 


104600 
024607 






.JLB 1.0 


DO I/O 


03057 


24636 


024031 






AND .B377 


MASK UPPER BYTE 


03058 


24637 


024545 






JMP GETCR 


RETURN VIA GETCH 


03059* 














03060 


24640 


024645 


AS 


.OT 


LDB TCCWO 


OUTPUT CONTROL WORD 


03061 


24641 


106631 






OTB CMND 




03062 


24642 


104600 






.JLB 1.0 


DO I/O 




24643 024607 










03063 


24644 


000541 






JMP RPUTC.I 


RETURN 


03064* 














03065 


24645 


001010 


TCCWO 


OCT 001010 




03066 


24646 


006412 


TCCWI 


OCT 006412 
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03068* 








03069* 








03070* 


ROUTINE TO INPUT HEX OR OCTAL 


DIGITS 


03071* 


CALLING SEQUENCE: 




03072* 


JLB* 


GETN 




03073* 


P+1 


NO DATA ENTERED; 


JUST CHARACTER NOT BS OR ' 


03074* 


P+2 


NEW DATA ENTERED 


i 


03075* 








03076* 


IF P+1: A = 


XXXX B = LAST CHAR 


03077* 


IF P+2: A = 


DATA B = IF 


LAST CHAR WAS CR 


03078* 


IF P+2: A = 


DATA B = LAST CHAR 


03079* 








03080 


24647 000544 GETN STB RGETN 




03081 


24650 002400 


CLA 


INITIALIZE 


03082 


24651 000470 


ST A DIG1 


DIGIT 


03083 


24652 000471 


STA DIG2 


STORAGE 


03084 


24653 000472 


STA DIG3 


LOCATIONS 


03085 


24654 000473 


STA DIG4 




03086 


24655 000474 


STA DIG5 




03087 


24656 000475 


STA DIG6 




03088* 








03089 


24657 024036 


LDA .N6 


SETUP FOR OCTAL 


03090 


24660 000251 


STA CNTR 


INITIALIZE COUNTER 


03091 


24661 000476 


STA DIGS 


AND SPARE 


03092 


24662 024071 


LDA ..DG1 


DEF FOR OCTAL ( DIG1 ) 


03093 


24663 000217 


STA PNTR 


SET POINTER 


03094 


24664 000220 


STA PNTRS 


AND SPARE 


03095* 








03096 


24665 104600 GET1 ,JLB GETCH 


GET ONE CHARACTER 




24666 024540 






03097 


24667 105762 
24670 027632 


JLY ISDIG 


IS DIGIT IN RANGE?? 


03098 


24671 024703 


JMP EXIT? 




03099 


24672 024043 


ADA .N48 


MAKE "0" THRU "9" OUT OF 


03100 


24673 000251 


LDB CNTR 


IS THE DIGIT 


03101 


24674 006003 


SZB.RSS 


ZERO ? 


03102 


24675 024711 


JMP IERR 


YES, THE BUFFER IS FULL 


03103 


24676 000217 


STA PNTR, I 


SAVE IT IN A DIGIT BUFFER 


03104 


24677 000217 


ISZ PNTR 


UPDATE THE DIGIT POINTER 


03105 


24700 006004 


INB 


UPDATE THE 


03106 


24701 000251 


STB CNTR 


DIGIT COUNTER 


03107 


24702 024665 


JMP GET1 


WE NEED MORE 


03108* 








03109 


24703 000261 EXIT? LDB CHAR 


A FRESH COPY OF "IT" 


03110 


24704 024000 


CPB ..BKS 


IS IT BACKSPACE ? 


03111 


24705 024721 


JMP BKUP 


YES, GO PROCESS IT 


03112 


24706 024003 


CPB ..DEL 




03113 


24707 024007 


JMP .COMND.I 




03114 


24710 024735 


JMP EX1 
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03115* 












03116 


24711 


024012 


IERR 


LDA ..BEL 


INDICATE ERROR AND 


03117 


24712 
24713 


104600 
024245 




.JLB PUTS 




03118 


24714 


024720 




LDA BKKMS 




03119 


24715 
24716 


104600 
024245 




•JLB PUTS 


WIPE OUT THE OFFENDING CHA1 


03120 


24717 


024665 




JMP GET1 


GIVE 'EM ANOTHER TRY 


03121 


24720 


025770 


BKKMS 


DEF MES48 




03122« 












03123 


24721 


000251 


BKUP 


LDA CNTR 


IS THERE ANYTHING 


03124 


24722 


000476 




CPA DIGS 


LEFT ? 


03125 


24723 


024015 




JMP CERR.P1.I 


NO, END OF BUFFER 


03126 


24724 


024033 




ADA .N1 


MOVE DIGIT COUNTER 


03127 


24725 


000251 




STA CNTR 


BACK ONE 


03128 


24726 


000217 




LDA PNTR 


NOW BACKUP 


03129 


24727 


024033 




ADA .N1 


THE BUFFER 


03130 


24730 000217 




STA PNTR 


POINTER 


03131 


24731 


025037 




LDA BKSMES 




03132 


24732 
24733 


104600 
024245 




.JLB PUTS 


MAKE THE CHAR GO AWAY 


03133 


24734 


024665 




JMP GET1 


TRY AGAIN 


03134* 












03135 


24735 


000251 


EX1 


LDA CNTR 


ANY NEW 


03136 


24736 


000476 




CPA DIGS 


DATA ? 


03137 


24737 


000544 




JMP RGETN, I 


NO, COUNTER NOT INC 'ED 


03138* 












03139 


24740 


000544 




ISZ RGETN 


SET FOR "GOOD" RETURN 


03140 


24741 


000251 




LDA CNTR 


HOW MANY DIGITS 


03141 


24742 


003004 




CMA.INA 


HAVE BEEN 


03142 


24743 


000476 




ADA DIGS 


INPUT ? 


03143 


24744 


000251 




STA CNTR 




03144 


24745 


000220 




LDA PNTRS 


INITIALIZE DIGIT 


03145 


24746 


000217 




STA PNTR 


POINTER 


03146 


24747 


002400 




CLA 


START WITH A CLEAN SLATE 


03147 


24750 


000217 


EX2 


ADA PNTR, I 


ADD A DIGIT TO PARTIAL SUM 


03148 


24751 


000217 




ISZ PNTR 


POINT TO NEXT DIGIT 


03149 


24752 


000251 




ISZ CNTR 


DONE ? 


03150 


24753 


024755 




JMP *+2 


NO, MORE TO GO 


03151 


24754 


024761 




JMP EX 3 


YEP 


03152 


24755 


000066 




CLE.ELA 




03153 


24756 


000066 




CLE.ELA 


MULTIPLY BY 8 


03154 


24757 


000066 




CLE.ELA 




03155 


24760 


024750 




JMP EX2 


PROCESS NEXT DIGIT 


03156* 












03157 


24761 


000261 


EX3 


LDB CHAR 


RETRIEVE LAST CHARACTER 


03158 


24762 024020 




CPB ...CR 




03159 


24763 


006400 




CLB 




03160 


24764 


000544 




JMP RGETN, I 
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03162* 

03163* 

03164* 

03165* 

03166* 

03167* 

03168 

03169* 

03170 

03171 
03172 
03173 
03174 

03175 

03176 

03177 

03178 

03179 

03180 

03181 

03182 

03183 

03184 

03185* 

03186 

03187 

03188 

03189 

03190 

03191 

03192 

03193 
03194 
03195 

03196 

03197* 

03198* 

03199 

03200 

03201 

03202* 



GETS INPUTS A STRING FROM THE TERMINAL. IT PUTS IT IN 
STRNG WITH THE LENGTH IN LSTR. THE FIRST CHAR SHOULD BE IN CHAR 
40 CHARS IS MAXIMUM INPUT. 
IT ALLOWS BACKSPACING. 



24765 000306 .SPTR DEF STRNG 



24766 000532 

24767 002400 

24770 000356 

24771 002004 

24772 000357 



24773 
24774 
24775 
24776 
24777 
25000 
25001 
25002 
25003 
25004 

25005 
25006 
25007 
25010 
25011 
25012 
25013 
25014 
25015 
25016 
25017 
25020 



024765 
001200 
000360 
000261 
024000 
025021 
024020 
000532 
024003 
024007 



25021 000356 

25022 024024 

25023 024015 



GETS STB 
CLA 
STA 
INA 
STA 

LDA 
RAL 
STA 
GETSL LDA 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 



000360 

105764 

002400 

105764 

000356 

024057 

024015 

000356 

000360 

104600 GET. 

024540 

024776 



GSBS 



RGETS 

LSTR 

GSLR 

.SPTR 

STORE 

CHAR 

..BKS 

GSBS 

...CR 

RGETS 

..DEL 

.COMN 



SAVE RETURN 

LENGTH OF STRING 

TEMP IS LEFT/RIGHT BYTE FLAG 1 LEFT 
RIGHT 

MAKE IT A BYTE ADDRESS 
.POINTER STRING POINTER 
GET CHARACTER 
WAS BACKSPACE 
BACK OUT A CHARACTER 
CARRIAGE RETURN? 
,1 YES, RETURN. DONE WITH STRING 

D.I 



LDB STORE. POINTER GET FLAG 

SBT 

CLA 

SBT CLEAR NEXT WORD 

LDA LSTR 

CPA .D64 

JMP CERR.P1.I 

ISZ LSTR ADD TO CHARACTER COUNTER 

ISZ STORE. POINTER NEXT CHAR 

.JLB GETCH GET ANOTHER CHARACTER 



JMP GETSL 



LDA LSTR 

CPA .B1 

JMP CERR.P1.I 



GO AROUND AGAIN 



CANT BACKSPACE OVER % CHAR 
CANT BACKSPACE IF NO CHARACTERS 
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03203 
03204 
03205 
03206 
03207 
03208 
03209 
03210 
03211 

03212 
03213 

03215* 

03216* 

03217* 

03218* 

03219 

03220 

03221 

03222 

03223 

03224 
03225 
03226 
03227 

03228 
03229 
03230 
03231 
03232 

03233 
03234 
03235 
03236 
03237 

03238 
03239 
03240 
03241 
03242 

03243 
03244 
03245 



25024 024033 

25025 000356 

25026 000360 

25027 024033 

25030 000360 

25031 002400 



25032 
25033 
25034 

25035 
25036 



105764 
025037 
104600 
024245 
025016 



ADA .N1 

STA LSTR 

LDB STORE. POINTER 

ADB .N1 

STB STORE. POINTER 

CLA 

SBT 

LDA BKSMES 

.JLB PUTS 



DECREMENT NUMBER OF CHARS 



BACK UP A CHAR 



CLEAR OUT THE LAST CHAR 



OUTPUT SPACE BACKSPACE 



25037 025766 



JMP GET. 
BKSMES DEF MES47 



GET NEXT CHARACTER 



DISTIBUTED SYSTEMS LOADER 



25040 
25041 
25042 
25043 
25044 
25045 
25046 

25047 

25050 

25051 

25052 

25053 

25054 

25055 

25056 

25057 

25060 

25061 

25062 

25063 

25064 

25065 

25066 

25067 

25070 

25071 

25072 

25073 
25074 
25075 
25076 



000571 

024024 

102601 

102702 

104600 

026330 

025140 

024062 

000265 

104600 

024461 

025140 

000503 

024021 

025225 

006400 

000516 

024063 

000265 

025312 

104600 

024463 

025140 

000274 

000265 

107630 

104600 

024461 

025140 

007400 

000517 



DSLD STB RDSLD 
LDA .B1 
OTA CPUST 
STC 2 
.JLB S.SC 

JMP DSLER 
LDA .D310 
STA LERR 
.JLB DS.WF 

JMP DSLER 
LDA TEMPO 
CPA ...W 
JMP DSWR 
CLB 

STB EXLOAD 
DSLDO LDA .D312 
STA LERR 
LDA DSDNL 
.JLB DS.FT 

JMP DSLER 
LDB FILE 
DSLD1 ISZ LERR 

OTB DATA.C 
.JLB DS.WF 

JMP DSLER 

CCB 

STB P3.CT 



SAY IN LOADER 
ALLOWED TO BREAK FROM DS LOADER 
SET SELECT CODE 

ERROR IN SELECT CODE SPECIFIED 

ERROR 310 = TIME OUT AFTER SELF TEST 
WAIT FOR DS SELF TEST 

TIMED OUT 

CHECK IF THIS IS A DUMP 

READ OR WRITE? 
IT'S A WRITE! ! 

CLEAR EXTENDED LOAD FLAG 

ERROR 312 = TO AFTER DOWN LOAD REQUEST 
ASK FOR A DOWN LOAD 
WAIT FOR COMPLETION OF REQUEST 

TIMED OUT 

GET FILE NUMBER 

ERROR 313 TO AFTER FILE NUMBER 
PASS IT TO THE CARD 

WAIT FOR IT TO COMPLETE 

TIMED OUT SO ERROR 
SET TO READ A FRAME 
(FRAME COUNT TO -1) 
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03247* 
03248 

03249 
03250 
03251 
03252 
03253 

03254 
03255 
03256 

03257 
03258 
03259 
03260 
03261 
03262 
03263 

03264 
03265 
03266 
03267 
03268 

03270 

03271 

03272 

03273 

03274 

03275 

03276 

03277 

03278* 

03279 

03280 

03281 

03282* 

03283 
03284 

03285 



25077 
25100 
25101 
25102 
25103 
25104 
25105 
25106 
25107 
25110 
25111 
25112 
25113 
25115 
25116 
25117 
25120 
25121 
25122 
25123 
25124 
25125 
25126 
25127 
25130 

25131 
25132 
25133 
25134 
25135 
25136 
25137 
25140 
25141 



104600 
025175 
101050 
007007 
025131 
000521 
104600 
025175 
000522 
000523 
104600 
025175 

000522 
000523 
000523 
000521 
025111 
104600 
025175 
000523 
025077 
024064 
000265 
025140 

104600 
025175 
006003 
025142 
024065 
000265 
000205 
000571 
000571 



25142 000516 

25143 002001 

25144 025141 

25145 000516 

25146 002020 

25147 025165 



READ IN ONE RECORD 
DSRD .JLB DS.GT GET WORD COUNT 

LSR 8 POSITION COUNT IN B 

CMB.INB.SZB.RSS MAKE COUNT NEG. (DONE?) 

JMP DSDUN YES 

STB DSCNT SAVE COUNT 

.JLB DS.GT GET LOAD ADDRESS 



STB DSADD 
STB DSCHK 
DSRDL .JLB DS.GT 



SAVE LOAD ADDRESS 
AND START CHECKSUM 
GET WORD REQUEST 



XSB1 '@DSADD' STORE IT 

ISZ DSADD 

ADB DSCHK 

STB DSCHK 

ISZ DSCNT 

JMP DSRDL 

.JLB DS.GT 



CPB DSCHK 
JMP DSRD 
LDA .D311 
STA LERR 
JMP DSLER 

DSDUN .JLB DS.GT 

SZB.RSS 
JMP DSCONT 
LDA .D314 
STA LERR 
STB SAVEB 
DSLER ISZ RDSLD 
DSEX JMP RDSLD, I 

DSCONT ISZ EXLOAD 
RSS 
JMP DSEX 

LDA EXLOAD 

SSA 

JMP DSNXT 



ADD TO CHECKSUM 

DONE WITH RECORD 
NO 
GET CHECKSUM 

DOES CHECKSUM AGREE? 
YES DO NEXT RECORD 

ERROR 311 = CHECKSUM ERROR 
NO RETURN WITH ERROR 

GET ADDRESS AS FLAG 

GOOD OR BAD 
GOOD COMPLETED 

ERROR 314 = BAD TRANSFER 
SAVE STATUS IN B REG 
INDICATE ERROR 
RETURN 

DONE? 
NO 
YES, ALL BLOCKS LOADED 

FIRST TIME THROUGH?? 

NO, GO GET NEXT FILE 
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03286» 

03287 

03288 

03289 

03290 

03291 

03292 

03293 

03294 

03295 

03296 

03297 

03298* 

03299 

03300 

03301 

03302 

03303 

03304 

03305 

03306* 

03307 

03308 

03309 

03310 

03311 

03312 

03313 

03314 
03315 
03316 
03317 
03318 
03319 
03320 

03321 
03322 

03323 
03324 

03325 
03326 
03327 



25150 
25152 
25154 
25155 
25156 
25157 
25160 
25161 
25162 
25163 
25164 

25165 
25166 
25167 
25170 
25171 
25172 

25173 
25174 

25175 
25176 
25177 
25200 
25201 
25202 
25203 
25204 
25205 
25206 
25207 
25210 
25211 
25212 
25213 
25214 
25215 
25216 
25217 
25220 
25221 
25222 

25223 
25224 



002003 
025141 
006002 
002004 
003004 
000516 
000516 
025165 
025141 

000366 
000366 
105762 

027647 
003400 
001665 
000274 
025061 

000574 
000517 
025216 
024067 
000265 
025250 
104600 

024463 
025140 
102530 
000001 
007004 
000517 
000265 
104600 
024463 
025140 
024070 
000265 
104600 
024461 
025140 
107530 
000574 



XLA1 '0» 

XLB1 '1' 

SZA.RSS 

JMP DSEX IF 

SZB 

INA 

CMA.INA 

STA EXLOAD 

ISZ EXLOAD 

JMP DSNXT 

JMP DSEX 

DSNXT ISZ MAP 
LDA MAP 
JLY STMAP 

CCA 

ELA.CLE.ERA 
STA FILE 
JMP DSLDO 

DS.GT STB RDS.GT 
ISZ P3.CT 
JMP DSJGO 
LDA .D315 
STA LERR 
LDA DSINR 
.JLB DS.FT 

JMP DSLER 
LIA DATA 
STA B 
CMB.INB 
STB P3.CT 
ISZ LERR 
.JLB DS.FT 

JMP DSLER 
DS5SG0 LDA .D317 
STA LERR 
.JLB DS.WF 

JMP DSLER 
LIB DATA,C 
JMP RDS.GT, I 



LESS THAN ONE 32K CHUNK WE ARE DONE 
IF PARTIAL ADD ONE 

MAKE IT NEGATIVE 

SAVE COUNT 

DONE??? 

NO, GO GET NEXT FILE 

ALL BLOCKS LOADED 

NEXT 32K BLOCK 
SET MAP REGISTERS 



ELIMINATE BIT 15 
INDICATE CONTINUE LOAD 
DO NEXT LOAD 



TIME FOR NEW FRAME? 
NO JUST READ A WORD 

ERROR 315 = TO AFTER BUFFER REQUEST 
GET BUFFER REQUEST 
GIVE IT TO CARD 

TIMED OUT 

NO GET BUFFER COUNT 

MAKE FRAME COUNT NEGATIVE 
SAVE IT 

ERROR 316 = TO AFTER COUNT ECHO 
TELL CARD HOW MUCH TO TRANSFER 

TIMED OUT 

ERROR 317 = TO WAITING FOR DATA 

WAIT FOR FLAG 

IT DID SO ERROR 
OK GET DATA 
RETURN 
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03329* 


THIS ROUTINE DUMPS A MEMORY 


IMMAGE TO A REMOTE COMPUTER 


03330* 












03331 


25225 


024066 


DSWR 


LDA .D320 




03332 


25226 


000265 




STA LERR 


ERROR 320 = VCP MODE TIME OUT 


03333 


25227 


024501 




LDA DSVCP 


TELL INTF TO GO INTO VCP MODE 


03334 


25230 
25231 


104600 
024463 




• JLB DS.FT 




03335 


25232 


025140 




JMP DSLER 


TIMED OUT 


03336 


25233 


006400 




CLB 


SET STARTING ADDRESS 


03337 


25234 


000522 




STB DSADD 


SAVE IT 


03338 


25235 


002404 


DSWRO 


CLA.INA 


1 PLUS RUBOUT 


03339 


25236 
25237 


104600 
025302 




.JLB DS.B 


OUTPUT 1 BYTE 


03340 


25240 


024031 




LDA .B377 


NOW RUBOUT 


03341 


25241 
25242 


104600 
025302 




.JLB DS.B 




03342 


25243 
25244 


104600 
024502 




.JLB DS.CM 


TRANSMIT BUFFER 


03343 


25245 


060400 




OCT 60400 




03344 


25246 
25247 


104600 
024502 




.JLB DS.CM 


ASK FOR BUFFER 


03345 


25250 


061400 


DSINR 


OCT 61400 




03346 


25251 
25252 


104600 
024502 




.JLB DS.CM 


ASK FOR BYTE 


03347 


25253 


061000 




OCT 61000 




03348 


25254 


024031 




CPA .B377 


CAN IT BE ACCEPTED? 


03349 


25255 


025277 




JMP DSWEX 


NO SO ERROR 


03350 


25256 


002003 




SZA.RSS 


DONE? 


03351 


25257 


025141 




JMP DSEX 


YES 


03352 


25260 


003004 




CMA.INA 


MAKE IT NEGATIVE 


03353 


25261 


000517 




STA P3.CT 


SAVE AS COUNTER 


03354 


25262 




DSWR1 


XLA1 'gDSADD 


' GET DATA 


03355 


25264 


000504 




STA TEMP 3 


SAVE DATA 


03356 


25265 


001727 




ALF.ALF 




03357 


25266 
25267 


104600 
025302 




.JLB DS.B 


TRANSFER CHARACTER 


03358 


25270 


000504 




LDA TEMP 3 




03359 


25271 
25272 


104600 
025302 




.JLB DS.B 




03360 


25273 


000522 




ISZ DSADD 


MOVE ADDRESS UP ONE 


03361 


25274 


000517 




ISZ P3.CT 


DONE WITH THIS ONE? 


03362 


25275 


025262 




JMP DSWR1 


NO 


03363 


25276 


025235 




JMP DSWRO 


YES THEN MOVE TO NEXT TRANSFER 


03364* 












03365 


25277 


000205 


DSWEX 


STA SAVEB 




03366 


25300 


000265 




ISZ LERR 


ERROR 321 = CENTRAL WONT ACCEPT 


03367 


25301 


025140 




JMP DSLER 


ERROR RETURN 
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03369 


25302 


000573 


DS.B 


STB RDS.B 




03370 


25303 


024031 




AND .B377 




03371 


25304 


024032 




IOR .B60K 


DS PUT BYTE REQUEST 


03372 


25305 
25306 


104600 
024463 




.JLB DS.FT 


WAIT FOR FLAG 


03373 


25307 


025140 




JMP DSLER 


TIMED OUT 


03374 


25310 


102530 




LIA DATA 


GET DATA 


03375 


25311 


000573 




JMP RDS.B, I 


RETURN 


03376* 












03377 


25312 


161001 


DSDNL 


OCT 161001 


DOWN LOAD COMMAND 


03378* 












03380* 












03381* 


MESSAGES j 


\HD WORDS OF WISDOM 




03382* 












03383* 


SUP 








03384* 












03385 


25313 


006412 


MES01 


OCT 6412 




03386 


25314 


044120 




ASC 8, HP A600/700 VCP 




25315 


020101 










25316 


033060 










25317 


030057 










25320 


033460 










25321 


030040 










25322 


053103 










25323 


050040 








03387 


25324 


006412 




OCT 6412 


THESE ARE "CARRIAGE RETURN" 


03388 


25325 


006412 




OCT 6412 


AND "LINE FEED" IN DISGUIS1 


03389 


25326 020040 




ASC 9, Type 


? for help 




25327 


052171 










25330 


070145 










25331 


020077 










25332 


020146 










25333 


067562 










25334 


020150 










25335 


062554 










25336 


070040 








03390 


25337 


006412 




OCT 6412 




03391 


25340 


006412 


MESOO 


OCT 6412 




03392 


25341 


000000 




OCT 


NULL CHARACTER TO TERMINATE 


03393* 












03394 


25342 


006412 


MES02 


OCT 6412 




03395 


25343 
25344 


053103 
050076 


MES03 


ASC 2,VCP> 




03396 


25345 


020021 




OCT 020021 


SPC AND DC1 


03397 


25346 


000000 




OCT 000000 




03398* 












03399 


25347 


003400 


MES07 


OCT 003400 


BELL AND NULL 


03400* 
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03401* 






03402 


25350 006412 


MES09 OCT 6412 


03403 


25351 006412 


OCT 6412 


03404 


25352 015463 


OCT 015463 ESC 3 CLEAR ALL TABS 


03405 


25353 015446 


OCT 015446 ESC & MOVE THE 


03406 


25354 060464 


OCT 060464 a 4 CURSOR TO 


03407 


25355 030103 


OCT 030103 C COLUMN 40 


03408 


25356 015461 


OCT 015461 ESC 1 SET A TAB HERE 


03409 


25357 006412 


OCT 6412 


03410 


25360 040454 

25361 041054 

25362 054054 

25363 054454 

25364 050454 

25365 055054 

25366 050054 

25367 043454 

25370 053040 


ASC 9,A,B,X,Y,Q f Z,P t G,V 


03411 


25371 015511 


OCT 015511 ESC I TAB 


03412 


25372 051062 

25373 030055 

25374 051063 

25375 031040 

25376 044457 

25377 047440 


ASC 6.R20-R32 I/O 


03413 


25400 006412 


OCT 6412 


03414 


25401 042454 

25402 047454 

25403 044440 


ASC 3,E,0,I 


03415 


25404 015511 


OCT 015511 


03416 


25405 051103 

25406 020103 

25407 044522 


ASC 3.RC CIR 


03417 


25410 006412 


OCT 6412 


03418 


25411 046440 

25412 040544 

25413 062162 

25414 062563 

25415 071440 

25416 020124 

25417 020144 

25420 060564 

25421 060440 


ASC 9,M Address T data 


03419 


25422 015511 


OCT 015511 


03420 


25423 051111 

25424 020111 


ASC 6.RI Int Mask 
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25425 067164 






25426 020115 






25427 060563 






25430 065440 




03421 


25431 006412 


OCT 6412 


03422 


25432 046156 

25433 067040 

25434 046151 

25435 071564 

25436 020155 

25437 062555 

25440 067562 

25441 074440 


ASC 8,Lnn List memory 


03423 


25442 015511 


OCT 015511 


03424 


25443 051120 

25444 020120 

25445 060562 

25446 064564 

25447 074440 


ASC 5.RP Parity 


03425 


25450 006412 


OCT 6412 


03426 


25451 015511 


OCT 015511 


03427 


25452 051123 

25453 020123 

25454 073551 

25455 072143 

25456 064145 

25457 071440 


ASC 6,RS Switches 


03428 


25460 006412 


OCT 6412 


03429 


25461 041517 

25462 046515 

25463 040516 

25464 042123 


ASC 4, COMMANDS 


03430 


25465 015511 


OCT 015511 


03431 


25466 051115 

25467 067156 

25470 020115 

25471 060560 

25472 020156 

25473 067040 

25474 055520 

25475 067156 

25476 020120 

25477 060547 

25500 062440 

25501 067156 

25502 056440 


ASC 13,RMnn Map nn [I 
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03432 


25503 


006412 


OCT 6412 


03433 


25504 


022522 


ASC 3,%R Run 




25505 


020122 






25506 


072556 




03434 


25507 


015511 


OCT 015511 


03435 


25510 


051127 


ASC 4.RW WMAP 




25511 


020127 






25512 046501 






25513 


050040 




03436 


25514 


006412 


OCT 6412 


03437 


25515 


022505 


ASC 5,*E Run P=2 




25516 


020122 






25517 


072556 






25520 


020120 






25521 


036462 




03438 


25522 


015511 


OCT 015511 


03439 


25523 


051104 


ASC 8,RD Diagnose Mode 




25524 


020104 






25525 


064541 






25526 


063556 






25527 


067563 






25530 


062440 






25531 


046557 






25532 


062145 




03440 


25533 


006412 


OCT 6412 


03441 


25534 


022524 


ASC 4, XT Test 




25535 


020124 






25536 


062563 






25537 


072040 




03442 


25540 


015511 


OCT 015511 


03443 


25541 


051106 


ASC 6.RF I/O flags 




25542 


020111 






25543 027517 






25544 


020146 






25545 


066141 






25546 


063563 




03444 


25547 


006412 


OCT 6412 


03445 


25550 


022503 


ASC 8,%C Clear memory 




25551 


020103 






25552 


066145 






25553 060562 






25554 


020155 






25555 


062555 






25556 


067562 






25557 


074440 





C-86 



VIRTUAL CONTROL PANEL PAGE 2 



03446 


25560 


006412 


OCT 6412 


03447 


25561 


022520 


ASC 5,tP Preset 




25562 


020120 






25563 


071145 






25564 


071545 






25565 


072040 




03448 


25566 


006412 


OCT 6412 


03449 


25567 


022530 


ASC 9,*XDVFFBUSC[string] 




25570 


042126 






25571 


043106 






25572 


041125 






25573 


051503 






25574 


055563 






25575 


072162 






25576 


064556 






25577 


063535 




03450 


25600 


006412 


OCT 6412 


03451 


25601 


054072 


ASC 13,X: Boot, Load, Write, User 




25602 


020102 






25603 067557 






25604 


072054 






25605 


020114 






25606 


067541 






25607 


062054 






25610 


020127 






25611 


071151 






25612 


072145 






25613 


026040 






25614 


052563 






25615 


062562 




03452 


25616 


006412 


OCT 6412 


03453 


25617 


042126 


ASC 15, DV: Cart. Tape, RoM, DisC, 




25620 


035040 






25621 


041541 






25622 071164 






25623 


027040 






25624 


052141 






25625 


070145 






25626 


026040 






25627 


051157 






25630 


046454 






25631 


020104 






25632 064563 






25633 041454 






25634 


020104 






25635 


051440 
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03454 
03455 



03456 

03457 

03458* 

03459 

03460 

03461* 

03462 

03463 

03464 

03465* 

03466 

03467* 

03468 

03469* 

03470 

03471 
03472* 

03473 
03474 

03475* 
03476 
03477 
03478* 



25636 
25637 
25640 
25641 
25642 
25643 
25644 
25645 
25646 

25647 
25650 
25651 
25652 
25653 
25654 
25655 
25656 
25657 
25660 
25661 
25662 
25663 
25664 
25665 
25666 



006412 
043106 
020106 
064554 
062454 
020102 
020102 
072563 
020141 
062144 
027054 
020125 
020125 
067151 
072054 
020123 
041440 
051545 
066145 
061564 
020143 
067544 
062440 
006412 
000000 



OCT 6412 

ASC 22, FF File, B Bus add. 



U Unit, SC Select code 



25667 020040 

25670 000000 

25671 006412 

25672 020040 

25673 020120 

25674 000000 

25675 040400 

25676 041000 

25677 020115 

25700 000000 

25701 052000 

25702 072000 

25703 020040 

25704 020000 



OCT 6412 
OCT 

MES11 OCT 020040 
OCT 

MES12 OCT 6412 

ASC 2, P 



MES13 
MES14 

MES15 



OCT 

OCT 040400 

OCT 041000 

ASC 1, M 
OCT 



MES16 OCT 052000 
OCT 072000 



MES22 



OCT 020040 
OCT 020000 



2 SPACES 

3 SPACES AND P 

A AND NULL 
B AND NULL 
M AND NULL 



T AND NULL 
t and null 

SPC AND NULL 
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03479* 

03480 


25705 041514 

25706 042501 

25707 051040 

25710 046505 

25711 046517 

25712 051131 


MES32 ASC 6, CLEAR MEMORY 


03481 


25713 020000 


OCT 020000 


03482* 






03483 


25714 050122 

25715 042523 

25716 042524 


MES33 ASC 3, PRESET 


03484 


25717 020000 


OCT 020000 


03485* 






03487 


25720 020115 

25721 040520 


ME S3 5 ASC 2, MAP 


03488 


25722 000000 


OCT 


03489* 






03490 


25723 050101 

25724 043505 


MES36 ASC 2, PAGE 


03491 


25725 000000 


OCT 000 


03492* 






03493 


25726 045502 

25727 020115 

25730 042515 

25731 047522 

25732 054440 


MES37 ASC 5, KB MEMORY 


03494 


25733 020000 


OCT 20000 SPACE NULL 


03495* 






03496 


25734 006412 


MES38 OCT 6412 CRLF 


03497 


25735 050101 

25736 051040 

25737 042522 
25740 051040 


ASC 4, PAR ERR 


03498 


25741 000000 


OCT 


03499* 






03500 


25742 006412 


MES41 OCT 6412 CRLF 


03501 


25743 050124 

25744 042523 

25745 052040 

25746 042522 

25747 051040 


ASC 5.PTEST ERR 


03502 


25750 000000 


OCT 000000 
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03503* 












03504 


25751 


045502 


MES43 ASC 


3, KB ECA 




25752 


020105 










25753 


041501 








03505 


25754 


006412 


OCT 


6412 




03506 


25755 


000000 


OCT 







03507* 












03508 


25756 


006412 


MES44 OCT 


6412 


CRLF 


03509 


25757 
25760 


020040 
020122 


ASC 


2, R 


SPACE SPACE 


03510 


25761 


000000 


OCT 


000000 


R AND NULL 


03511* 












03512 


25762 


006412 


MES46 OCT 


6412 


CRLF 


03513 


25763 020477 


ASC 


2,!? 






25764 


020040 








03514 


25765 000000 


OCT 


000 




03515* 












03516 


25766 


020010 


MES47 OCT 


020010 


SPACE BACKSPACE 


03517 


25767 


000000 


OCT 







03518* 












03519 


25770 


004040 


MES48 OCT 


004040 


BACKSPACE SPACE 


03520 


25771 


004000 


OCT 


004000 


BACKSPACE NULL 


03521* 












03522 


25772 

25773 
25774 
25775 


046104 
042522 
020105 
051122 


MES62 ASC 


4.LDER 


ERR 


03523 


25776 


020000 


OCT 


020000 


SPACE AND NULL 


03524* 












03525 




025777 


E0P2 EQU * 




03526 


26000 




ORG 


EPROM+6000B 
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03528 

03529** 

03530* 

03531* 

03532* 

03533* 

03534* 

03535** 

03536* 

03537 

03538 

03539 

03540 

03541* 

03542* 

03543* 

03544* 

03545* 

03546* 

03547* 

03548* 

03549* 

03550* 

03551* 
03552* 
03553* 
03554* 

03555* 
03556* 

03557* 
03558* 
03559* 
03560* 
03561* 
03562* 
03563* 
03564* 
03565* 
03566* 
03567* 
03568* 
03569* 
03570* 
03571* 
03572* 

03573* 
03574* 
03575* 



026000 P3 EQU * 

* 
* 

LOADER ROUTINES * 

« 

* 

»***«»«»*»*****»******«**»**x»**»»*»«*»*«*««««*»»*»*x«*»«*»**»«» 



26000 026004 

26001 026364 

26002 026531 

26003 026524 



JMP CTU 
JMP RMLDR 
JMP DCLDR 
JMP DCRLD 



THESE JUMPS ARE FOR USER ROM CODE ENTRY TO THE LOADERS. 
CALL THE LOADERS WITH A JLB INSTRUCTION. (JUMP AND LOAD B), 

THE CALLING SEQUENCE IS 

.JLB LOADER 

JMP ERROR ERROR RETURN ERROR NUMBER IN LERR 
GOOD ... GOOD RETURN 



BEFORE CALLING THE LOADERS CERTAIN PARAMETERS MUST BE SET UP 
SCETC CONTAINS THE SELECT CODE, BUS ADDRESS, AND UNIT IN OCTAL 
FILE CONTAINS THE FILE NUMBER. 
TEMPO CONTAINS ASCII W IN THE LOW 8 BITS IF A WRITE IS TO BE DONE 

THE LOADERS ASSUME THAT MAP ZERO IS SET UP PROPERLY FOR THE FIRST 
32K OF THE LOAD, THAT THE DATA 1 MAP IS SET TO ZERO, AND THAT A 
CLC 0,C INSTRUCTION HAS JUST BEEN EXECUTED. (THE I/O SYSTEM IS 
QUIESCENT) 

FOR THE CTU LOADER FILE MEANS CURRENT LOCATION ON THE TAPE 

FILE 1-N MEANS FIND THAT FILE ON TAPE FIRST, THEN LOAD. 

UNIT IS FOR LEFT TAPE AND 1 FOR RIGHT TAPE. 

THE FORMAT OF THE TAPE IS ABSOLUTE BINARY. A ZERO LENGTH RECORD 

WHICH IS NOT THE FIRST RECORD OF THE FILE INDICATES A SWITCH TO 

THE NEXT 32K OF PHYSICAL MEMORY. 

A WRITE TO TAPE WILL WRITE 4K WORDS WHERE THE BUS ADDRESS INDICATES 

WHICH 4K TO WRITE. IT WRITES IN ABSOLUTE BINARY, AND DOES 

NOT WRITE A FILE MARK WHEN IT IS DONE. 

FOR THE ROM LOADER TEMPO IS IGNORED. IT ALWAYS READS THE ROM. 

THE FIRST TWO WORDS OF A ROM FILE ARE THE NUMBER OF 32K WORD CHUNKS 

(BLOCK) AND THE REMAINDER AFTER THE LAST CHUNK (PARTIAL). 
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03576* 

03577* 
03578* 
03579* 
03580* 
03581* 
03582* 
03583* 
03584* 
03585* 
03586* 
03587* 
03588* 
03589* 
03590* 
03591* 
03592* 

03593* 
03594* 
03595* 
03596* 
03597* 
03598* 
03599* 
03600* 
03601* 
03602* 

03603* 
03604* 

03605 

03606 

03607* 

03608* 

03609* 

03610* 

03611 

03612 

03613 

03614 

03615 

03616* 

03617 

03618 

03619 

03620 

03621 

03622 



A FILE CAN HAVE MORE THAN ONE BLOCK IF IT STARTS ON A CARD BOUNDARY. 
THE LOADER WILL GO TO THE NEXT CONSECUTIVE SELECT CODE WHEN IT RUNS 
OUT OF THE CURRENT CARD. 
THE ROM LOADER IGNORES THE BUS ADDRESS AND UNIT FIELDS OF SCETC. 

THE DISC LOADER HAS TWO ENTRY POINTS, DCLDR AND DCRLD. 

DCLDR LOADS A DISC FILE USING THE FILE NUMBER. 

DCRLD LOADS A DISC FILE USING A STARTING TRACK AND SECTOR. 

A DISC FILE HAS THE SAME FORMAT AS A ROM FILE. THE FIRST TWO WORDS 
ARE BLOCK AND PARTIAL. FOR A LOAD THESE INDICATE HOW MUCH MEMORY TO 
LOAD & THE BLOCK GOES IN PHYSICAL MEMORY LOCATION (NOT THE A REG) 
AND THE PARTIAL GOES INTO MEMORY LOCATION 1. FOR A WRITE 
(TEMPO IS W) THESE TWO WORDS OF MEMORY INDICATE HOW MUCH TO WRITE. 

NOTE THAT THE LOADER ALWAYS TRANSFERS AT LEAST 32K WORDS. 

BUS ADDRESS IS USED AS THE HPIB ADDRESS AND UNIT IS THE HEAD NUMBER 

FOR 7906 DISC OR UNIT FOR FLOPPIES OR MINIFLOPPIES. 

DCLDR MULTIPLIES THE FILE NUMBER BY 256 TO GET THE STARTING SECTOR 
OF THE FILE. FILE ZERO IS AT TRACK ZERO, SECTOR ZERO. 

DCRLD EXPECTS THE GLOBAL REGISTER TO 

BE SET TO THE SELECT CODE, THE HPIB ADDRESS IN SUBCH, THE UNIT 

IN UNIT, THE SECTOR NUMBER OR VECTOR WORD ONE IN FILE, 

THE CYLINDER OFFSET OR VECTOR WORD 2 IN CYLNDR. OFFSET AND 

HEAD. CYLINDER, AND VECTOR WORD 3 IN SECTR. TRACK. 

DCRLD DOES NOT LOOK AT SCETC. THE VECTOR WORDS ARE FOR COMMAND SET 

80 DISCS. 



CARTRIDGE TAPE LOADER 



26004 000550 

26005 002400 

26006 000501 

26007 104600 

26010 026330 

26011 026157 

26012 027756 

26013 000265 

26014 000267 

26015 027677 

26016 000267 

26017 000520 



CTU 



STB RCTU 
CLA 

STA TEMP 2 
.JLB S.SC 

JMP CTER 

LDA ..D110 
STA LERR 
ISZ UNIT 
LDA .PO 
IOR UNIT 
STA .PU 



RETURN ADDRESS 
CLEAR RECORD 

FLAG 

SET SELECT CODE 

ERROR RETURN 
ERRORS IN 100 RANGE FOR CTU 

LEFT CTU IS UNIT 1 
MAKE P UNIT 



C-92 



VIRTUAL CONTROL PANEL PAGE 3 



03623 


26020 


000274 


LDB FILE 


FILE ZERO ? 


03624 


26021 


006003 


SZB.RSS 




03625 


26022 


026061 


JMP CTLD 


YES, SKIP FILE FIND 


03626 


26023 


027676 


LDA ECSAND 


FIND THE FILE 


03627 


26024 
26025 


104600 
026317 


.JLB CTO.W 


OCT 15446 


03628 


26026 


000520 


LDA .PU 


OCT 70060 


03629 


26027 
26030 


104600 
026317 


.JLB CTO.W 




03630 


26031 


000274 


LDA FILE 




03631 


26032 006400 


CLB 


TO GET 1ST NUMBER 


03632 


26033 


100400 


DIV 012 


DIVIDE BY 10 




26034 027720 






03633 


26035 000502 


STB TEMPI 




03634 


26036 


027705 


IOR .UO 


OCT 72460 


03635 


26037 


104600 


.JLB CTO.W 






26040 026317 






03636 


26041 


000502 


LDA TEMPI 


DO SECOND NUMBER 


03637 


26042 


027723 


IOR 060 


MAKE IT A NUMBER 


03638 


26043 


104600 


.JLB CTO.B 






26044 026310 






03639 


26045 


027703 


LDA .P2 




03640 


26046 
26047 


104600 
026317 


.JLB CTO.W 




03641 


26050 


027674 


LDA CDC1 


OCT 41421 


03642 


26051 
26052 


104600 
026317 


.JLB CTO.W 




03643 


26053 
26054 


104600 
026301 


.JLB CTI.B 


GET STATUS 


03644 


26055 


027710 


CPA S 


OK ? 


03645 


26056 


026061 


JMP CTLD 


YES 


03646 


26057 


000205 


STA SAVEB 


SAVE STATUS CODE IN B 


03647 


26060 


026157 


JMP CTER 


ERROR 


03648* 










03649 


26061 


000503 


CTLD LDA TEMPO 


CHECK IF READ OR WRITE 


03650 


26062 


027711 


CPA W 




03651 


26063 026167 


JMP CT.DP 


WANTS TO WRITE 


03652* 










03653 


26064 


027676 


GTREC LDA ECSAND 


ESC & 


03654 


26065 
26066 


104600 
026317 


.JLB CTO.W 




03655 


26067 


000520 


LDA .PU 




03656 


26070 
26071 


104600 
026317 


.JLB CTO.W 




03657 


26072 


027704 


LDA .S2 




03658 


26073 


104600 


.JLB CTO.W 






26074 026317 






03659 


26075 


027675 


LDA RDC1 


R (DC1) 
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03660 


26076 
26077 


104600 
026317 


.JLB CTO.W 




03661* 










03662 


26100 
26101 


104600 
026270 


.JLB CTI.W 


GET FIRST WORD 


03663 


26102 


027673 


CPA CTRS 


DONE ? 


03664 


26103 


026161 


JMP DONE 


YES, DONE WITH LOAD 


03665* 










03666 


26104 
26105 


104600 
026270 


.JLB CTI.W 


SKIP THE 


03667 


26106 
26107 


104600 
026301 


•JLB CTI.B 


COUNT WORDS 


03668* 










03669 


26110 


027706 


LDA .DC1 


ASCII "DC1" 


03670 


26111 


000501 


STA TEMP 2 


INITIALIZE RECORD FLAG 


03671 


26112 


104600 


.JLB CTO.B 


TELL TERMINAL TO TRANSMIT 




26113 026310 






03672* 










03673 


26114 
26115 


104600 
026301 


.JLB CTI.B 


GET FIRST BYTE ( RECORD LENG 


03674 


26116 


003004 


CMA.INA 


MAKE IT NEGATIVE 


03675 


26117 


000251 


STA CNTR 


INITIALIZE COUNTER 


03676 


26120 
26121 


104600 
026301 


.JLB CTI.B 


SKIP UNUSED BYTE 


03677* 










03678 


26122 
26123 


104600 
026270 


.JLB CTI.W 


GET LOAD ADDRESS 


03679 


26124 


000511 


STA POINTER 


INITIALIZE POINTER 


03680 


26125 


000502 


STA TEMPI 


AND CHECKSUM 


03681 


26126 


000251 


LDA CNTR 


CHECK FOR ZERO COUNT 


03682 


26127 


002002 


SZA 




03683 


26130 


026141 


JMP CTLDL 


NONZERO, GO LOAD A RECORD 


03684* 










03685 


26131 


104600 


.JLB CTI.W 


SKIP THE CHECKSUM 




26132 026270 






03686 


26133 000366 


LDA MAP 




03687 


26134 


002004 


INA 




03688 


26135 


000366 


STA MAP 


NEXT MAP 


03689 


26136 
26137 


105762 
027647 


JLY STMAP 


SET UP THE MAP 


03690 


26140 


026064 


JMP GTREC 


GET RECORDS FOR NEW MAP 


03691* 










03692 


26141 
26142 


104600 
026270 


CTLDL .JLB CTI.W 


GET A WORD OF DATA 



03693* 
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03694 

03695* 

03696 

03697 

03698 

03699 

03700 

03701* 

03702 

03703 
03704 
03705* 
03706 

03707 

03708 

03709* 

03710 

03711 

03712 

03713 

03714 

03715 

03716* 

03717 

03718 

03719 

03720 

03721 

03722 

03723* 

03724 

03725 

03726 

03727 

03728 

03729 
03730 

03731 
03732 

03733 
03734 

03735 



26143 

26145 000502 

26146 000502 

26147 000511 

26150 000251 

26151 026141 

26152 104600 

26153 026270 

26154 000502 

26155 026064 

26156 000265 

26157 000550 

26160 000550 

26161 000501 

26162 006002 

26163 000550 

26164 000265 

26165 000265 

26166 026157 

26167 000270 

26170 001727 

26171 001700 

26172 000511 

26173 027751 

26174 000501 



26175 
26176 
26177 
26200 
26201 
26202 

26203 
26204 
26205 
26206 
26207 
26210 
26211 
26212 
26213 
26214 



000501 
006003 
026163 
027676 
104600 
026317 
000520 
104600 
026317 
027700 
104600 
026317 
027701 
104600 
026317 
027702 



XSA1 ' ©POINTER ' 

ADA TEMPI 
STA TEMPI 
ISZ POINTER 
ISZ CNTR 
JMP CTLDL 



STORE IT IN MAIN MEMORY 

ADD IT TO THE 

CHECKSUM 
BUMP POINTER 
DONE WITH RECORD ? 

NO, GET ANOTHER WORD 



.JLB CTI.W GET CHECK SUM FROM THE TAPE 



CPA TEMPI 
JMP GTREC 

.CKSM ISZ LERR 
CTER ISZ RCTU 

JMP RCTU, I 

DONE LDB TEMP2 
SZB 

CTEX JMP RCTU, I 
ISZ LERR 
ISZ LERR 
JMP CTER 

CT.DP LDA SUBCH 
ALF.ALF 
ALF 

STA POINTER 
LDA M64 
STA TEMP 2 

CTDPO LDB TEMP 2 
SZB.RSS 
JMP CTEX 
LDA ECSAND 
.JLB CTO.W 

LDA .PU 
.JLB CTO.W 

LDA .$D1 
.JLB CTO.W 

LDA ASC34 
.JLB CTO.W 

LDA WENQ 



DOES IT MATCH ? 
YES, GET ANOTHER RECORD 

ERROR 111 = CHECKSUM ERROR 
BUMP RETURN ADDRESS TO 
ERROR RETURN 

WAS A RECORD 
READ ? ( FLAG NO. ) 
YES, SPLIT 

ERROR 112 = EOF ONLY 
OUTPUT ERROR MESSAGE 

WRITE TO CTU 

SET ADDRESS 
ADDRESS POINTER 

SET NUMBER OF BLOCKS 
END OF WRITE ? 



ESC & 



3 4 



W (ENQ) 
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03736 
03737 

03738 
03739 
03740 
037^1 
03742 

03743 
03744 

03745 

03746 
03747 
03748 

03749 
03750 
03751 
03752 
03753 

03754 
03755 
03756 
03757 
03758 

03759 
03760 
03761 
03762 

03763 



26215 
26216 
26217 
26220 
26221 
26222 
26223 
26224 

26225 
26226 
26227 
26230 
26231 
26232 

26233 
26234 
26235 
26236 
26240 
26241 
26242 
26243 
26244 
26245 
26246 
26247 
26250 
26251 
26252 
26253 
26254 
26255 
26256 
26257 
26260 
26261 
26262 
26263 
26264 

26265 
26266 
26267 



104600 
026317 
104600 
026301 
027715 
002001 
026175 
027751 
000251 
003004 
001727 
104600 
026317 
000511 
000502 
104600 
026317 

000000 
000502 
000502 
104600 
026317 
000511 
000251 
026236 
000502 
104600 

026317 
000501 
000000 
027706 
104600 
026310 
104600 
026301 
027710 
026175 
000205 
027757 
000265 
026157 



.JLB CTO.W 

.JLB CTI.B 

CPA 06 

RSS 

JMP CTDPO 

LDA M64 

STA CNTR 

CMA,INA 

ALF.ALF 

.JLB CTO.W 

LDA POINTER 
STA TEMPI 
.JLB CTO.W 



WAIT FOR ACKNOWLEDGEMENT 

TRY AGAIN 

SET FOR ONE BLOCK 

PUT POSITIVE COUNT IN UPPER HALF 



GET ADDRESS 
START CHECKSM 
SEND ADDRESS 



CTDPL XLA1 ' ©POINTER » GET WORD 
LDB A 
ADB TEMPI 
STB TEMPI 
.JLB CTO.W 



ADD TO CHETEMP1 



ISZ POINTER 
ISZ CNTR 
JMP CTDPL 
LDA TEMPI 
.JLB CTO.W 

ISZ TEMP 2 
NOP 

LDA 021 
•JLB CTO.B 

.JLB CTI.B 



DONE ? 
NO 

OUTPUT CHECKSUM 

MORE? 

NO 

DC1 

CHECK RESULTS 



OK ? 
YES 
SAVE STATUS CODE RETURNED 



03764 26262 027710 CPA S 

03765 26263 026175 JMP CTDPO 

03766 26264 000205 STA SAVEB 

03767 26265 027757 LDA ..D120 

03768 26266 000265 STA LERR 

03769 26267 026157 JMP CTER 
03770* 

03771 **************»*#***»*»»******* »*##*#***#***»#*#**#»»#*#*»**##**#*##** 



LOADER ERROR 120 
ERROR 



CTU WRITE ERROR 
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03772* 

03773 

03774 

03775 
03776 
03777 

03778 

03779 

03780* 

03781* 

03782* 

03783 

03784 

03785 

03786 

03787 

03788 

03789* 

03790* 

03791* 

03792 

03793 

03794 

03795 

03796 

03797 

03798* 

03799* 

03800* 

03801 

03802 

03803 

03804 

03805 
03806 

03807 
03808* 



26270 000551 CTI.W STB RTI.W 



26271 104600 

26272 026301 

26273 001727 

26274 000260 

26275 104600 

26276 026301 

26277 000260 
26300 000551 



.JLB CTI.B 

ALF.ALF 
STA TEMP 
.JLB CTI.B 

ADA TEMP 
JMP RTI.W, I 



RETURN ADDRESS 
GET THE FIRST BYTE 

PUT IN UPPER BYTE 
SAVE IT 
NOW THE SECOND BYTE 

BUILD A WORD 



*««***•»**««*»*»»**»«*««*»»*»»«*•»* 



26301 000552 CTI.B STB RTI.B 



26302 027671 

26303 102631 

26304 104600 

26305 024607 

26306 027731 

26307 000552 



LDA .ICW 
OTA CMND 
.JLB 1.0 

AND 0377 
JMP RTI.B, I 



PUT ASIC INTO 
INPUT MODE 
READ A BYTE 

SAVE LOW BYTE ONLY 



**»»«***«*•*«»***»***•«»»*******«*• 



26310 000553 

26311 027731 

26312 027672 

26313 106631 

26314 104600 

26315 024607 

26316 000553 



CTO.B STB RTO.B 
AND 0377 
LDB .OCW 
OTB CMND 
.JLB 1.0 

JMP RTO.B, I 



MASK OFF UPPER BYTE 
PUT ASIC INTO 

OUTPUT MODE 
OUTPUT A BYTE 



*********************************** 



26317 000554 

26320 000260 

26321 001727 

26322 104600 

26323 026310 

26324 000260 

26325 104600 

26326 026310 

26327 000554 



CTO.W STB RTO.W 
STA TEMP 
ALF.ALF 
.JLB CTO.B 

LDA TEMP 
.JLB CTO.B 

JMP RTO.W, I 



SAVE A COPY 
POSITION FIRST BYTE 
GO OUTPUT ONE BYTE 

GET A FRESH COPY 
OUTPUT THE OTHER BYTE 
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03809* 


SET SELECT CODE 


AND OTHER 


USEFUL VALUES 


03810* 








03811 


26330 000572 S.SC 


STB RS.SC 


SAVE RETURN ADDRESS 


03812 


26331 027713 


LDA 02 




03813 


26332 000265 


STA LERR 


ERROR 2 = SELECT CODE < 20 


03814 


26333 000264 


LDA SCETC 


GET DEFAULT SELECT CODE 


03815 


26334 000204 


STA SAVEA 


GOING TO START WITH THIS VALUE 


03816 


26335 027723 


AND 060 


MUST BE OVER 20 OCT 


03817 


26336 002003 


SZA.RSS 




03818 


26337 026363 


JMP SCER 


INTERNAL. ERROR 


03819 


26340 000265 


ISZ LERR 


ERROR 3 = I/O CARD NO RESPONSE 


03820 


26341 000264 


LDA SCETC 




03821 


26342 027725 


AND 077 




03822 


26343 103602 


OTA GR.C 


SET AND ENABLE GLOBAL REGISTER 


03823 


26344 002400 


CLA 




03824 


26345 103502 


LIA GR.C 


CHECK FOR RESPONCE 


03825 


26346 002003 


SZA.RSS 




03826 


26347 026363 


JMP SCER 


NO RESPONSE 


03827* 








03828 


26350 000264 


LDB SCETC 




03829 


26351 005700 


BLF 




03830 


26352 005723 


BLF.RBR 


MOVE TO BUSS ADDRESS 


03831 


26353 000001 


LDA B 




03832 


26354 027716 


AND 07 


MASK 


03833 


26355 000270 


STA SUBCH 




03834 


26356 005723 


BLF.RBR 




03835 


26357 000001 


LDA B 




03836 


26360 027716 


AND 07 




03837 


26361 000267 


STA UNIT 




03838* 








03839* 








03840 


26362 000572 


ISZ RS.SC 


SKIP OVER ERROR RETURN 


03841 


26363 000572 SCER 


JMP RS.SC, 


I AND RETURN 


03843* 








03844* 








03845* 


ROM LOADER 






03846* 








03847* 








03848 


26364 000556 RMLDR 


STB RRMLD 


SAVE RETURN ADDRESS 


03849* 








03850 


26365 002404 


CLA.INA 




03851 


26366 102601 


OTA CPUST 


SAY IN LOADER 


03852 


26367 104600 
26370 026330 


•JLB S.SC 


SET SELECT CODE 


03853 


26371 026475 


JMP RMERR 


ERROR RETURN 


03854* 
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03855 


26372 000274 


03856 


26373 003000 


03857 


26374 000274 


03858 


26375 027762 


03859 


26376 000265 


03860 


26377 002400 


03861 


26400 006400 


03862 


26401 000260 


03863 


26402 106631 


03864 


26403 102730 


03865 


26404 007400 


03866 


26405 106530 


03867 


26406 006007 


03868 


26407 026475 


03869 


26410 006020 


03870 


26411 026474 


03871 


26412 102530 


03872 


26413 


03873 


26415 102730 


03874 


26416 106530 


03875 


26417 


03876 


26421 000266 


03877 


26422 006002 


03878 


26423 002004 


03879 


26424 003004 


03880 


26425 000216 


03881 


26426 002007 


03882 


26427 026433 


03883 


26430 000260 


03884 


26431 002002 


03885 


26432 026473 


03886 


26433 000260 


03887 


26434 000274 


03888 


26435 026401 


03889* 




03890 


26436 027713 


03891 


26437 027742 


03892 


26440 000216 


03893 


26441 002001 


03894 


26442 000266 


03895 


26443 007004 


03896 


26444 000000 


03897 


26445 000251 


03898 


26446 102730 


03899 


26447 106530 



R0M2 



ROM 4 



ROM 5 



ROM 3 



LDA FILE 


GET "FILE" 


CMA 


MAKE IT NEGATIVE 


STA FILE 


AND SET FILE COUNTER 


LDA ..D211 




STA LERR 


ERROR 211 = END OF PROGRAMS 


CLA 


START AT ADDRESS 


CLB 




STB TEMP 


SAVE CURRENT ADDRESS 


0TB CMND 


OUTPUT IT TO THE PROM CARD 


STC DATA 


READ ONE LOCATION 


CCB 


SETUP FOR END-OF-PROGRAM TEST 


LIB DATA 


FETCH ONE WORD 


INB.SZB.RSS 


CHECK FOR ALL ONES 


JMP RMERR 


ALL ONES FOUND, END OF PROGRAMS 


SSB 


SHOULD BE POSITIVE FOR NEW FORMAT 


JMP RMERR2 


ANOTHER ROM ERROR 


LIA DATA 


GET BLOCK COUNT AGAIN 


XSA1 '0' 


STORE NUMBER OF BLOCKS 


STC DATA 


ON TO PARTIAL 


LIB DATA 


GET PARTIAL 


XSB1 'V 


STORE PARTIAL 


STB PARTIAL 


SAVE PARTIAL 


SZB 


PARTIAL? 


INA 


YES, ANOTHER BLOCK 


CMA.INA 


COMPLEMENT BLOCK 


STA D1SV 


SAVE BLOCK NUMBER 


INA.SZA.RSS 


ONLY ONE BLOCK? 


JMP R0M4 


YES, DONT CHECK FOR CARD BOUNDARY 


LDA TEMP 




SZA 


MORE THAN ONE BLOCK MUST START ON 




CARD BOUNDARY 


JMP RMERR3 


ANOTHER ERROR 


ADB TEMP 


STILL IN THE RUNNING, BUILD NEXT 




ADDRESS 


ISZ FILE 


IS THIS THE GOOD ONE ? 


JMP R0M2 


NO, KEEP TRYING 


LDA 02 


ALREADY READ FIRST 2 LOCATION 


LDB 0100000 


32K COUNT 


ISZ D1SV 


LAST BLOCK? 


RSS 




LDB PARTIAL 


YES, USE PARTIAL AS COUNT 


CMB.INB 




ADB A 


ADD A TO COUNT SINCE IS TWO FIRST 




TIME THROUGH 


STB CNTR 


STORE COUNT IN CNTR 


STC DATA 


NEXT ADDRESS 


LIB DATA 


READ CONTENTS 
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03900 


26450 




XSB1 'fiA' 


03901 


26452 002004 




INA 


03902 


26453 000251 




ISZ CNTR 


03903 


26454 026446 




JMP R0M3 


03904 


26455 000216 




LDA D1SV 


03905 


26456 002003 




SZA.RSS 


03906 


26457 000556 




JMP RRMLD, I 


03907* 








03908 


26460 000366 




LDA MAP 


03909 


26461 002004 




INA 


03910 


26462 000366 




STA MAP 


03911 


26463 105762 

26464 027647 




JLY STMAP 


03912 


26465 102502 




LIA 2 


03913 


26466 002004 




INA 


03914 


26467 102602 




OTA 2 


03915 


26470 002400 




CLA 


03916 


26471 102631 




OTA CMND 


03917 


26472 026437 




JMP R0M5 


03918* 








03919 


26473 000265 


RMERR3 ISZ LERR 


03920* 




BOUNDARY 


03921 


26474 000265 


RMERR2 ISZ LERR 


03922 


26475 000556 


RMERR 


ISZ RRMLD 


03923 


26476 000556 




JMP RRMLD, I 


03925* 








03926* 








03927* 


HPIB DISC 


LOADER 


03928* 








03929* 


AUTO BOOT 


FROM ; 


DISC 


03930* 








03931 


26477 024072 


..MRBT DEF MRBT 


03932 


26500 021466 


.PTLER DEF PTLER 


03933 


26501 177704 


TRYNM 


DEC -60 


03934 


26502 002027 


.DCSC 


OCT 2027 


03935* 








03936 


26503 026501 


PTDC 


LDA TRYNM 


03937 


26504 000252 




STA TRYCT 


03938 


26505 102702 




STC 2 


03939 


26506 026502 


PTLP 


LDA .DCSC 


03940 


26507 000264 




STA SCETC 


03941 


26510 104600 

26511 026531 




.J LB DCLDR 


03942 


26512 026477 




JMP ..MRBT, I 


03943 


26513 027754 




LDB Ml 600 



STORE IN MAIN MEMORY 
NEXT ADDRESS 
COUNT THE WORD, DONE ? 
NO, JUST TRY ONE MORE 

DONE? 

GO SEE WHAT KIND OF LOAD THIS WAS 



SET UP MAP FOR NEXT 32K 



ON TO NEXT CARD 

START AT ADDRESS ZERO 
SET ADDRESS ON CARD 
GO LOAD NEXT BUNCH 

LOADER ERROR 113 = BIGGER THAN 32K 
MUST START ON CARD 

LOADER ERROR 112 = BAD FORMAT 
BUMP RETURN ADDRESS 
ERROR RETURN 



TRY 60 TIMES EVERY 2 SECONDS FOR 

2 MINUTES 
DEFAULT SELECT CODE FOR DISC 

NUMBER OF RETRYS ON POWERUP 

BREAK ALLOWED DURING DISC LOAD 
GET DEFAULT SELECT CODE FOR AUTO BOOT 
SAVE IT 



GOOD BOOT, GO FINISH IT 
WAIT 2 SECONDS BEFORE RETRY 
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03944 


26514 000245 


PTWLP LDA TBGCNT 


03945 


26515 002306 


CCE.INA.SZA 


03946 


26516 026515 


JMP *-1 


03947 


26517 000001 


ISZ B 


03948 


26520 026514 


JMP PTWLP 


03949 


26521 000252 


ISZ TRYCT 


03950 


26522 026506 


JMP PTLP 


03951* 






03952 


26523 026500 


JMP .PTLER, 


03953* 






03954* 






03955 


26524 000557 


DCRLD STB RDCLD 


03956 


26525 103102 


CLF 2 


03957 


26526 002404 


CLA.INA 


03958 


26527 102601 


OTA CPUST 


03959 


26530 026546 


JMP DISCO 



GET COUNT FOR 1.25 MS 



WAIT 1.25 MS 



ANOTHER RETRY? 



NO, DISC ERROR 



REENTER FOR DISK CALL BACK ENTRY 
TO LOADER 



03960* 
03961* 
03962* 

03963* 

03964* 

03965 

03966* 

03967 

03968 

03969* 

03970 

03971 

03972 

03973 

03974* 

03975 

03976 

03977 

03978 

03979 

03980* 

03981* 

03982 

03983 
03984 

03985* 

03986 

03987 

03988 



NORMAL ENTRY AFTER %B00T DISC OR %L0AD DISK 



26531 000557 DCLDR STB RDCLD 



SAVE RETURN ADDRESS 



26532 002404 

26533 102601 

26534 006400 

26535 000273 

26536 000275 

26537 000276 



CLA.INA 
OTA CPUST 

CLB ZERO SELECT CODE, UNIT, FILE, ETC 

STB CYLNDR. OFFSET 
STB HEAD. CYLINDER 
STB SECTR. TRACK 



26540 
26541 
26542 
26543 
26544 
26545 



104600 
026330 
026632 
000274 
001727 
000274 



.JLB S.SC 



SET SELECT CODE 
ERROR RETURN 



JMP DCER 

LDA FILE 

ALF.ALF MULT BY 256 TO GET SECTOR NUMBER 

STA FILE 



26546 002400 

26547 000271 

26550 104600 

26551 026634 

26552 002400 

26553 104600 

26554 027137 

26555 026632 



DISCO CLA 

STA DISC. ID 
.JLB DC. IN 



CLA 

.JLB DC.RW 



JMP DCER 



INITIALIZE 



DO 64KB TRANSFER 

NOW READ/WRITE IT 

ERROR, CAN WE RETRY ? 
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03989* 

03990 

03991 

03992 

03993 

03994 

03995* 

03996 

03997 

03998 

03999 

04000 

04001* 

04002 

04003* 

04004 

04005 

04006 

04007 

04008* 

04009* 

04010* 

04011 

04012 

04013 

04014 

04015 

04016 

04017 

04018 

04019 

04020 

04021 

04022* 

04023 

04024* 

04025 

04026 

04027 

04028 

04029 

04030 

04031 

04032 
04033* 



26556 
26560 

26562 000266 

26563 002003 

26564 026633 

26565 006002 

26566 002004 

26567 027743 

26570 002003 

26571 026633 

26572 000216 

26573 000366 

26574 002104 

26575 000366 

26576 105762 

26577 027647 



DCLP 



XLA1 '0' 
XLB1 '1' 
STB PARTIAL 
SZA.RSS 
JMP DC EX 

SZB 

INA 

ADA ,M1 

SZA.RSS 

JMP DCEX 

STA D1SV 

LDA MAP 
CLE, INA 
STA MAP 
JLY STMAP 



SAVE PARTIAL 
ZERO BLOCKS? 
YES, WE ARE DONE THEN 

NONZERO PARTIAL?? 
IF SO GET NEXT BLOCK 
SUBTRACT ONE SO COUNT STARTS AT ZERO 
ONE BLOCK NO PARTIAL OR PARTIAL ONLY? 
YES, WE ARE DONE 

SAVE BLOCK NO. 

CURRENT MAP (ZERO) 

BUMP TO NEXT BLOCK 

SET IT UP 



BUMP TO NEXT DISC ADDRESS (NEXT FILE?) 



26600 
26601 
26602 
26603 
26604 
26605 
26606 
26607 
26610 
26611 
26612 



000274 
027732 
000274 
000275 
002040 
006104 
000275 
000276 
002040 
006004 
000276 



LDA FILE ADD VALUE OF 32K TO FILE 

ADA 0400 IE. 256 BLOCKS 

STA FILE SAVE AS SECTOR ADDRESS 

LDB HEAD. CYLINDER 

SEZ RIPPLE THROUGH VECTOR 

CLE.INB 

STB HEAD. CYLINDER 

LDB SECTR. TRACK 

SEZ 

INB 

STB SECTR. TRACK 



26613 104600 

26614 026634 



26615 
26616 
26617 
26620 
26621 
26622 
26623 
26624 
26625 



002400 
000366 
000216 
000266 
001200 
003004 
104600 

027137 
026632 



.JLB DC. IN 



CLA 

LDB MAP 
CPB D1SV 
LDA PARTIAL 
RAL 

CMA.INA 
.JLB DC.RW 

JMP DCER 



SET UP 



DO 64KB TRANSFER 

LAST TRANSFER?? 

YES, ONLY LOAD PARTIAL 

COMPLEMENT FOR NEGATIVE COUNT 
DO THE XFER 

BAD NEWS 
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04034 


26626 000366 




LDA MAP 


GET MAP JUST USED 


04035 


26627 000216 




CPA D1SV 


DONE? 


04036 


26630 026633 




JMP DCEX 


YES 


04037 


26631 026574 




JMP DCLP 


KEEP ON TRUCKING 


04038* 










04039* 










04040 


26632 000557 


DCER 


ISZ RDCLD 


SET FOR ERROR 


04041 


26633 000557 


DC EX 


JMP RDCLD, I 


RETURN 


04042* 










04044* 










04045* 


INITIALIZE BUSS 






04046* 










04047 


26634 000566 


DC. IN 


STB RDCIN 


SAVE RETURN ADDRESS 


04048 


26635 027760 




LDA ..D411 




04049 


26636 000265 




STA LERR 


ERROR 411 = TO READING DISC TYPE 


04050 


26637 027751 




LDA M64 




04051 


26640 000253 




STA DCTO 


SET TIME OUT TO 30 SECONDS 


04052 


26641 000271 




LDA DISC. ID 




04053 


26642 027714 




CPA 03 


7906 ? 


04054 


26643 026646 




JMP *+3 


MUST INITIALIZE ! ! 


04055* 










04056 


26644 002002 




SZA 


FIRST TIME ? 


04057 


26645 026710 




JMP DC. 10 


NO SKIP INITIALIZE 


04058 


26646 027744 




LDA M2 




04059 


26647 104600 
26650 027476 




.JLB PHIN 




04060 


26651 070200 




OCT 070200 


PHI ON-LINE 


04061 


26652 060063 




OCT 060063 


REN, IFC, WRITE, FLUSH FIFO 


04062 


26653 000245 




LDA TBGCNT 


SET TIME OUT. GET 1.25 MS TIME 


04063 


26654 002306 




CCE.INA.SZA 


THIS IS WORTH MACHINE INDEPENDENT 
IFC TIME 


04064 


26655 026654 




JMP *-1 


1.25 raSEC 


04065 


26656 000272 




STA UNIT. HEAD ; HEAD NUMBER ZERO 


04066 


26657 104600 
26660 027535 




.JLB PHIFL 


FLUSH THE FIFO 


04067* 










04068* 


READ AND 


SET DISC TYPE 




04069* 


AND FILE 


POSITION 




04070* 










04071 


26661 104600 

26662 027436 




.JLB PHI.L 


TELL PHI TO LISTEN 


04072 


26663 000537 




OCT 000537 


WITH A SECONDARY OF UNTALK 


04073 


26664 000270 




LDA SUBCH 


BUILD SECONDARY WITH HPIB ADDRES 


04074 


26665 027667 




IOR TLK 




04075 


26666 027670 




IOR LSN 




04076 


26667 104600 
26670 027521 




.JLB HPIB 


SEND IT TO THE CARD 
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04077 

04078 

04079* 

04080 

04081 
04082 
04083 

04084 

04085 

04086* 

04087* 

04088* 

04089 

04090 

04091* 

04092* 

04093* 

04094 

04095 

04096 

04097 

04098 

04099 

04100 

04101 

04102* 

04103* 
04104* 

04105 
04106 

04107 

04108* 

04109 

04110 

04111* 

04112 

04113 

04114 

04115 

04116 

04117 



26671 104600 

26672 027475 

26673 001002 



26674 
26675 
26676 

26677 
26700 
26701 
26702 
26703 



104600 
027507 
001727 
000271 
104600 
027507 
000271 
000271 



.J LB PHI 

OCT 001002 

.JLB PHI. I 

ALF.ALF 
STA DISC. ID 

.JLB PHI. I 

ADA DISC. ID 
STA DISC. ID 



GET DISC TYPE 



SAVE UPPER BYTE 
GET SECOND BYTE 

MERGE 
DISC TYPE 



DO A UNIVERSAL CLEAR AND READ STATUS 

.JLB PHI. TALK PHI TALK 

OCT 00424 UNIVERSAL DEVICE CLEAR 



26704 104600 

26705 027435 

26706 000424 



SEE IF DISC IS CS80 TYPE ?? 



26707 
26710 
26711 
26712 



000271 
027737 
027163 
027107 



DC. 10 



26713 027672 

26714 027107 

26715 027736 

26716 027121 



NOPE CHECK FUTHER 



LDA DISC. ID 


DISC TYPE 


AND 01101 


MASK 


CPA 01001 


DISC PLUS LINUS ? 


JMP DC80 


YEP 


CPA 01000 


DISC ONLY? 


JMP DC80 


YEP 


CPA 01100 


LINUS ONLY ? 


JMP DC80. 


YEP 



26717 000265 

26720 104600 

26721 027435 

26722 000550 

26723 104600 

26724 027475 

26725 000003 



ISZ LERR ERROR 412 = TO UDC OR READ STATUS 
.JLB PHI. TALK 



26726 
26727 
26730 

26731 
26732 
26733 
26734 



000267 
000271 
027714 
002400 
027672 
104600 
027521 



OCT 00550 

.JLB PHI 

OCT 3 

LDA UNIT 
LDB DISC. ID 
CPB 03 

CLA 
IOR BIT9 
.JLB HPIB 



PHI TALK 



READ STATUS 



CHECK FOR IDC 
IF IT IS THEN 
MAKE UNIT ZERO 
ADD BIT 9 
PASS IT TO CARD 
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04118 

04119 

04120* 

04121 

04122 

04123* 
04124 

04125 
04126 
04127 
04128 
04129 

04130 
04131 

04132 

04133 
04134 

04136* 

04137* 

04138* 

04139 

04140 

04141 

04142 

04143 

04144 

04145 

04146 

04147 

04148 

04149 

04150 

04151 

04152 

04153 
04154 
04155 
04156 
04157 
04158 
04159 



26735 104600 

26736 027436 

26737 000550 

26740 104600 

26741 027475 

26742 001003 



26743 
26744 
26745 
26746 
26747 
26750 
26751 

26752 
26753 
26754 
26755 
26756 

26757 
26760 



104600 
027507 
000265 
000205 
002002 
026632 
000265 

104600 
027507 
104600 
027507 
001300 
027721 
000260 



.JLB PHI.L 
OCT 00550 
.JLB PHI 
OCT 1003 
.JLB PHI. I 



PHI LISTEN 



TRANSFER 3 BYTES 
GET BYTE 



ISZ LERR ERROR 413 = STATUS ERROR, STATUS IN B 
STA SAVEB SAVE STATUS IN B 
SZA CHECK FOR ERROR 

JHP DCER ;ERROR 13 POSSIBLE RETRY !! 
ISZ LERR ERROR 414 = TO DURING FILE MASK 
COMMAND 

SKIP NEXT BYTE 



.JLB PHI. I 

.JLB PHI. I 

RAR 

AND 017 
STA TEMP 



READ DISC TYPE 

ELIMINATE BIT ZERO 
USE 4 BITS FOR ID 
SAVE. DISC. TYPE 



USE DISC TYPE TO CONVERT DISC PARAMETERS 



26761 
26762 
26763 
26764 
26765 
26766 
26767 
26770 
26771 
26772 
26773 
26774 
26775 
26776 

26777 
27000 
27001 
27002 

27003 
27004 
27005 



027766 
000217 
000271 
000626 
027042 
000217 
027730 
027042 
027733 
027042 
000217 
027727 
027042 
000217 
027712 
027042 
000217 
027714 
027013 
000205 
027763 



LDB 
STB 
LDA 
CPA 
JMP 
ISZ 
CPA 
JMP 
CPA 
JMP 
ISZ 
CPA 
JMP 
ISZ 
CPA 
JMP 
ISZ 
CPA 
JMP 
DTYER STA 
LDA 



DCTYP 

PNTR 

DISC. ID 

0406 

DTYPE 

PNTR 

0204 

DTYPE 

0404 

DTYPE 

PNTR 

0201 

DTYPE 

PNTR 

01 

DTYPE 

PNTR 

03 

DC. ID 
SAVEB 
..D460 



SET "DISC TYPE" 

POINTER 
RETREIVE DISC TYPE 
MSC 9800L? 
YES 

MINI-FLOPPY ? 

SPARROW 

88020 FLOPPY ? 

7910 FIXED DISC ? 



INTEGRATED DISC CONTROLLER? 
YES 

DISC NOT IDENTIFIED 
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04160 


27006 


000265 




STA 


LERR 


ERROR 460 


04161 


27007 


000274 




LDB 


FILE 


CHECK IF FILE NO. IS ZERO 


04162 


27010 


006002 




SZB 




IF SO THEN GO AHEAD 


04163 


27011 


026632 




JMP 


DCER 


; ELSE, ERROR 


04164 


27012 


027026 




JMP 


DCFM 


USE CYLINDER MODE 


04165* 














04166 


27013 


000260 


DC. ID 


LDA 


TEMP 


SAVE. DISC. TYPE 


04167 


27014 


027712 




CPA 


01 


7920? 


04168 


27015 


027026 




JMP 


DCFM 


YES, DO FILE MASK FIRST 


04169 


27016 


000217 




ISZ 


PNTR 




04170 


27017 


027714 




CPA 


03 


7925? 


04171 


27020 027026 




JMP 


DCFM 


YES, DO A FILE MASK FIRST 


04172 


27021 


000217 




ISZ 


PNTR 




04173 


27022 


002002 




SZA 




7906? 


04174 


27023 


027004 




JMP 


DTYER 


;NOT IDENTIFIED 


04175 


27024 007400 




CCB 






04176 


27025 


000272 




STB 


UNIT. HEAD 


;FLAG TO INDICATE (UNIT = HEAi 


04177* 














04178 


27026 
27027 


104600 
027435 


DCFM 


.JLE 


5 PHI. TALK 


PHI TALK 


04179 


27030 


000550 




OCT 


00550 


SEND MASK TO 7906 


04180* 














04181 


27031 
27032 


104600 
027475 




.JLE 


* PHI 




04182 


27033 


000017 




OCT 


17 


SET FILE MASK 


04183 


27034 


027740 




LDA 


01005 


ENABLE AUTO TRACK INCREMENT AND 
SPARING 


04184 


27035 


000272 




LDB 


UNIT. HEAD 




04185 


27036 


006003 




SZB, 


RSS 


IS THIS A 7906? 


04186 


27037 


027713 




IOR 


02 


NO THEN CYLINDER MODE 


04187 


27040 


104600 




.JLB HPIB 






27041 


027521 










04189* 














04190* 


CONVERT FILE NO. 


TO CYLINDER. HEAD. SECTOR 


04191* 














04192 


27042 


104600 


DTYPE 


.JLB DTPC 


GO CALCULATE SEEK INFO FROM 




27043 


027045 








FILE NUMBER 


04193 


27044 


000566 




JMP 


RDCIN.I 




04194* 
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04195* 

04196* 

04197 

04198 

04199 

04200 

04201 

04202 

04203 

04204 

04205 

04206 

04207 

04208 

04209 

04210 

04211 

04212 

04213 

04214 

04215 

04216 

04217 

04218 

04219 

04220 

04221 

04222 

04223 

04224 

04225 

04226 

04227 

04228 

04229 

04230 

04232* 

04233* 

04234* 

04235 

04236 

04237 

04238 

04239 

04240 

04241 



27045 000567 DTPC 

27046 000217 

27047 027731 

27050 003004 

27051 000276 

27052 000217 

27053 001727 

27054 027721 

27055 003004 

27056 000275 

27057 002400 

27060 000274 

27061 000260 

27062 000276 

27063 006020 

27064 027067 

27065 002004 

27066 027061 

27067 000260 

27070 000276 

27071 000000 

27072 002400 

27073 000260 

27074 000275 

27075 006020 

27076 027101 

27077 002004 

27100 027073 

27101 000275 

27102 000260 

27103 005727 

27104 000276 

27105 000276 

27106 000567 



GET NUMBER OF SECTORS PER TRACK 



STB RDTPC 

LDA PNTR.I 

AND 0377 

CMA.INA MAKE IT NEGATIVE 

STA SECTR. TRACK ; SAVE IT 

LDA PNTR.I 



ALF.ALF SET NUMBER OF HEADS PER CYLINDER 

AND 017 

CMA.INA 

STA HEAD. CYLINDER 

CLA 

LDB FILE NOW GET NO SECTRS 

STB TEMP 

ADB SECTR. TRACK 

SSB 

JMP *+3 

INA 

JMP *-5 

LDB TEMP REMAINDER IS THE SECTOR OFFSET 

STB SECTR. TRACK ;SAVE IT 

LDB A NOW GET NUMBER OF CYLINDERS 

CLA 

STB TEMP 

ADB HEAD. CYLINDER 

SSB 

JMP *+3 

INA 

JMP *-5 

STA HEAD. CYLINDER ;SAVE CYLINDER 

LDB TEMP NOW ADD HEAD TO SECTOR WORD 

BLF.BLF 

ADB SECTR. TRACK 

STB SECTR. TRACK ;SAVE 

JMP RDTPC, I ; NOW RETURN 



SET SINGLE VECTOR 



27107 000274 

27110 000277 

27111 000275 

27112 000300 

27113 000276 

27114 000301 

27115 000267 



DC80 LDB FILE 
STB VW1 

LDB HEAD. CYLINDER 
STB VW2 

LDB SECTR. TRACK 
STB VW3 
LDB UNIT 
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04242 


27116 


000010 




SLA 


IF ODD UNIT 


04243 


27117 


006011 




SLB.RSS 


AND LINUS TYPE 


04244 


27120 


027134 




JMP DC80A 


THEN USE LINUS NUMBERS 


04245 


27121 


000274 


DC80. 


LDA FILE 


LINUS TYPE 


04246 


27122 


000275 




LDB HEAD. CYLINDER ; THEN DEVIDE BY 


04247 


27123 


101042 




LSR 2 


; FOUR 


04248 


27124 


000277 




STA VW1 




04249 


27125 


027753 




LDA M350 


160 SECOND TIME OUT FIRST TIME FOR 
LONG LINUS TAPES 


04250 


27126 


000253 




STA DC TO 




04251 


27127 


000275 




LDA HEAD. CYLINDER 


04252 


27130 


000276 




LDB SECTR. TRACK 


04253 


27131 


101042 




LSR 2 




04254 


27132 


000300 




STA VW2 




04255 


27133 


000301 




STB VW3 




04256 


27134 


002404 


DC80A 


CLA.INA 


; INDICATE CS80 TYPE 


04257 


27135 


000272 




STA UNIT. HEAD 




04258 


27136 


000566 




JMP RDCIN.I 


; RETURN 


04260* 












04261* 


SEEK READ/WRITE DSJ 




04262* 












04263 


27137 


000570 


DC.RW 


STB RDCRW 




04264 


27140 


102623 




OTA 23B 


OUTPUT COUNT 


04265 


27141 


027764 




LDA ..D415 




04266 


27142 


000265 




STA LERR 


ERROR 415 = TO DURING SEEK COMMAND 


04267* 












04268* 












04269* 


CHECK IF 


READ OR WRITE 




04270* 












04271 


27143 027665 




LDA DMACW 


GET DMA CONTROL WORD 


04272 


27144 


000503 




LDB TEMPO 


GET LBW CHAR 


04273 


27145 


027711 




CPB W 


WRITE? 


04274 


27146 


027726 




XOR 0200 


YES, CLEAR BIT 7 


04275 


27147 


102621 




OTA 21B 


OUTPUT TO DMA 


04276 


27150 


002400 




CLA 


SET ADDRESS TO ZERO 


04277 


27151 


102622 




OTA 22B 




04278 


27152 


000272 




LDB UNIT. HEAD 


;CHECK FOR CS 80 


04279 


27153 004010 




SLB 




04280 


27154 


006020 




SSB 




04281 


27155 


027252 




JMP DSEEK 


NO, NOT CS 80 
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04283* 
04284* 
04285* 
04286 

04287 
04288 

04289 
04290 

04291 

04292 

04293 
04294 
04295 

04296 
04297 

04298 
04299 

04300 
04301 

04302 
04303 

04304 
04305 

04306 
04307 

04308 
04309 

04310 
04311 

04312 
04313 

04314* 



27156 

27157 
27160 
27161 
27162 
27163 
27164 

27165 
27166 

27167 
27170 

27171 
27172 
27173 
27174 
27175 
27176 
27177 
27200 
27201 
27202 
27203 
27204 
27205 
27206 
27207 
27210 
27211 
27212 

27213 
27214 

27215 
27216 

27217 
27220 
27221 
27222 

27223 
27224 

27225 
27226 
27227 



FOR CS 80 DO THE SPECIAL DANCE 

.JLB PHI.L PHI LISTEN 



104600 
027436 
000560 
104600 
027475 
001001 
104600 

027507 

104600 

027435 

000545 

000267 

027735 

104600 

027521 

027722 

104600 

027521 

000301 

104600 

027557 

000300 

104600 

027557 

000277 

104600 

027557 

027724 

104600 

027521 

027717 

104600 

027557 

002400 

104600 

027557 

002400 

104600 

027557 

003400 

104600 

027557 



OCT 000560 
.JLB PHI 

01001 OCT 001001 
.JLB PHI. I 



SECONDARY (DSJ) 



COUNTED TRANSFER OF ONE 
GET IT BUT IGNORE IT 



.JLB PHI. TALK 

OCT 000545 
LDA UNIT 
IOR BIT5 
.JLB HPIB 

LDA 020 
.JLB HPIB 

LDA VW3 
.JLB HPIBX 

LDA VW2 
.JLB HPIBX 

LDA VW1 
.JLB HPIBX 

LDA 076 
.JLB HPIB 

LDA 010 
.JLB HPIBX 

CLA 

.JLB HPIBX 

CLA 

.JLB HPIBX 

CCA 

.JLB HPIBX 



COMMAND MESSAGE 



SEND SET UNIT 



SET ADDRESS 



SET STATUS MASK 



MESSAGE LENGTH 



OVERRUN 
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04315 


27230 000265 


ISZ LERR 


ERROR 416 = TO DURING READ/WRITE 










COMMAND 


04316 


27231 000503 


LDB TEMPO 


GET 


RW CHAR 


04317 


27232 027711 


CPB W 


WRITE? 


04318 


27233 027243 


JMP DC. 01 


GO \ 


rfRITE 


04319 


27234 104600 

27235 027475 


.JLB PHI 






04320 


27236 001000 


OCT 001000 


LOCATE > READ + EOI 


04321* 










04322 


27237 104600 
27240 027436 


.JLB PHI.L 






04323 


27241 000556 


OCT 000556 


<EXECUTE> 


04324 


27242 027331 


JMP DS.01 






04325* 










04326 


27243 104600 

27244 027475 


DC. 01 .JLB PHI 






04327 


27245 001002 


OCT 001002 


LOCATE > WRITE + EOI 


04328* 










04329 


27246 104600 

27247 027435 


.JLB PHI. TALK 






04330 


27250 000556 


OCT 000556 


<EXECUTE> 


04331 


27251 027351 


JMP DCOMN 






04333* 


SEEK FOR NON CS80 






04334* 










04335 


27252 104600 

27253 027435 


DSEEK .JLB PHI. TALK 




PHI TALK 


04336 


27254 000550 


OCT 000550 






04337 


27255 104600 

27256 027475 


.JLB PHI1 






04338 


27257 000002 


OCT 000002 




SEEK 


04339 


27260 000272 


LDB UNIT. HEAD 






04340 


27261 000267 


LDA UNIT 




GET UNIT 


04341 


27262 006020 


SSB 




CHECK FOR UNIT HEAD SWAP 


04342 


27263 002400 


CLA 




YEP SWAP 


04343 


27264 104600 

27265 027521 


.JLB HPIB 




SEND TO THE CARD 


04344 


27266 000275 


LDA HEAD. CYLINDER 


; SET UPPER CYLINDER 


04345 


27267 000273 


ADA CYLNDR. OFFSET 


CYLINDER OFFSET 


04346 


27270 104600 

27271 027557 


.JLB HPIBX 






04347 


27272 000276 


LDA SECTR. TRACK 


; SET HEAD 


04348 


27273 001727 


ALF.ALF 






04349 


27274 027731 


AND 0377 






04350 


27275 000272 


LDB UNIT. HEAD 




; CHECK FOR UNIT HEAD SWAP 


04351 


27276 006020 


SSB 






04352 


27277 000267 


LDB UNIT 






04353 


27300 000001 


IOR B 
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04354 


27301 
27302 


104600 
027521 


• JLB HPIB 




04355 


27303 000276 


LDA SECTR. TRACK ; SET SECTOR 


04356 


27304 


027731 


AND 0377 




04357 


27305 


027672 


IOR BIT9 




04358 


27306 
27307 


104600 
027521 


.JLB HPIB 


SECTOR + EOI 


04360* 










04361* 


READ OR WRITE 






04362* 










04363 


27310 


000265 


ISZ LERR 


ERROR 416 = TO DURINC 
COMMAND 


04364 


27311 
27312 


104600 
027435 


.JLB PHI. TALK 


PHI TALK 


04365 


27313 


000550 


OCT 000550 




04366 


27314 


000503 


LDB TEMPO 


CHECK READ OR WRITE 


04367 


27315 


027711 


CPB W 




04368 


27316 


027337 


JMP DWRT 


NOPE 


04369 


27317 
27320 


104600 
027475 


.JLB PHI1 




04370 


27321 


000005 


OCT 000005 


READ 


04371 


27322 000267 


LDA UNIT 


GET UNIT 


04372 


27323 


027672 


IOR BIT9 


ADD EOI 


04373 


27324 
27325 


104600 
027521 


.JLB HPIB 


SEND IT TO THE CARD 


04374 


27326 
27327 


104600 
027436 


.JLB PHI.L 


PHI LISTEN 


04375 


27330 


000540 


OCT 000540 


SECONDARY 


04376 


27331 


027744 DS.01 


LDA M2 




04377 


27332 
27333 


104600 
027476 


.JLB PHIN 




04378 


27334 


001400 


OCT 001400 


UNCOUNTED TRANSFER 


04379 


27335 


060040 


OCT 060040 


TELL PHI TO INPUT 


04380 


27336 


027351 


JMP DCOMN 




04381* 










04382 


27337 
27340 


104600 DWRT 
027475 


.JLB PHI1 




04383 


27341 


000010 


OCT 000010 


WRITE 


04384 


27342 


000267 


LDA UNIT 


GET UNIT 


04385 


27343 027672 


IOR BIT9 


ADD EOI 


04386 


27344 

27345 


104600 
027521 


.JLB HPIB 


OUTPUT TO THE CARD 


04387 


27346 
27347 


104600 
027435 


.JLB PHI. TALK 




04388 


27350 


000540 


OCT 000540 


WRITE 
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04390* 














04391* 


COMMON DMA ROUTINE 






04392* 














04393 


27351 


027666 


DCOMN 


LDA 


CMDF 


SET PHI FOR BYTE PACKED DMA 


04394 


27352 


000265 




ISZ 


LERR 


ERROR 417 = TO DURING DATA READ 


04395 


27353 


000503 




LDB 


TEMPO 


CHECK READ OR WRITE 


04396 


27354 


027711 




CPB 


W 


WRITE?? 


04397 


27355 


001665 




ELA, 


, CLE, ERA 


YES, CLEAR THE MSB 


04398 


27356 


102631 




OTA 


CMND 


SEND TO THE PHI 


04399 


27357 


103721 




STC 


21B.C 


START DMA 


04400 


27360 


002400 




CLA 






04401 


27361 


000253 




LDB 


DC TO 


LONG TIME OUT 


04402* 












START 


04403 


27362 


101117 


DC .NO 


RRR 


15 


DELAY WITHOUT MEMORY ACCESS 


04404 


27363 


100117 




RRL 


15 




04405 


27364 


102223 




SFC 


23B 


DONE ? 


04406 


27365 027400 




JMP 


DC.N1 


YEP 


04407 


27366 


101117 




RRR 


15 




04408 


27367 


100117 




RRL 


15 




04409 


27370 


000000 




ISZ 


A 


WAIT 


04410 


27371 


027362 




JMP 


DC. NO 


GO WAIT SOME MORE 


04411 


27372 


101117 




RRR 


15 




04412 


27373 


100117 




RRL 


15 




04413 


27374 


000001 




ISZ 


B 


TIMED OUT? 


04414 


27375 


027362 




JMP 


DC. NO 


NO. GO WAIT 


04415 


27376 


107721 




CLC 


21B.C 


STOP DMA 


04416 


27377 


027434 




JMP 


DCRWE 


TIMED OUT 


04417* 














04418 


27400 


107721 


DC.N1 


CLC 


21B.C 


KILL ANY ADDITIONAL DMA 


04419 


27401 


027765 




LDA 


..D420 




04420 


27402 000265 




STA 


LERR 


ERROR 420 = PARITY ERROR 


04421 


27403 


102222 




SFC 


22B 


CHECK FOR PARITY ERROR 


04422 


27404 


027434 




JMP 


DCRWE 


YEP, BAIL OUT 


04423 


27405 


000265 




ISZ 


LERR 


ERROR 421 = TO DURING PHI FLUSH 


04424 


27406 


027445 




LDA 


UNL 


GET UNLISTEN 


04425 


27407 


000503 




LDB 


TEMPO 


READ OR WRITE?? 


04426 


27410 


027711 




CPB 


W 




04427 


27411 


027415 




JMP 


DC.N2 


YES, FLUSH FIFO 


04428 


27412 
27413 


104600 
027535 




.JLE 


\ PHIFL 


FLUSH FIFO FOR READ 


04429 


27414 


027417 




JMP 


.DSJ 




04430* 














04431 


27415 
27416 


104600 
027521 


DC.N2 


.JLE 


\ HPIB 


WRITE SO OUTPUT UNL 



04432* 
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04433* 
04434* 
04435 
04436 

04437 
04438 

04439 
04440 

04441 
04442 
04443 
04444 
04445 

04447* 
04448* 
04449* 
04450* 
04451* 
04452* 
04453* 
04454* 

04455* 

04456 

04457 

04458 

04459 

04460 

04461 
04462 

04463 
04464 
04465 
04466 

04467 
04468 
04469 
04470 
04471 
04472 

04473 
04474* 



DSJ REQUEST 



27417 
27420 
27421 
27422 

27423 
27424 
27425 
27426 
27427 
27430 
27431 
27432 
27433 
27434 



000265 
104600 
027436 
000560 
104600 
027475 
001001 
104600 
027507 
000205 
000265 
002003 
000570 
000570 



.DSJ ISZ LERR 

.JLB PHI.L 

OCT 000560 
.JLB PHI1 

OCT 001001 
.JLB PHI. I 

STA SAVEB 
ISZ LERR 
SZA.RSS 
ISZ RDCRW 
DCRWE JMP RDCRW, I 



ERROR 422 = TIME OUT DURING DSJ 
PHI LISTEN 

SECONDARY DSJ 



COUNTED TRANSFER OF 1 



SAVE DSJ ERROR CODE 

ERROR 423 = BAD DSJ STATUS 

WAS THERE AN ERROR ? 

NO, TAKE GOOD EXIT 

YES, ERROR RETURN 



PHI SERVICE ROUTINES 



PHI TALK AND PHI LISTEN SEND OUT TALK AND LISTEN COMMANDS 
RESPECTIVELY TO THE SUBCHANNEL ADDRESED IN SUBCH. THE WORD AFTER 
THE JLB PHI. . . IS THE SECONDARY. 



27435 
27436 
27437 
27440 
27441 
27442 
27443 
27444 
27445 
27446 
27447 
27450 
27451 
27452 
27453 
27454 
27455 
27456 

27457 
27460 



002301 
000040 
000560 
027745 
104600 
027476 
031002 
000537 
000477 
002041 
027461 
104600 
027475 
000536 
027752 
000000 
027454 
000270 
027670 
027466 



PHI. TALK CCE.RSS 
PHI.L CLE 

STB RPHI? 

LDA M3 
.JLB PHIN 



UNL 



OCT 031002 
OCT 000537 
OCT 000477 
SEZ.RSS 
JMP LISEN 
.JLB PHI1 



SET COUNT 
"PHIN" 

PHI OUTPUT COMMAND 

UNT 

UNL 



OCT 000536 
LDA M100 
ISZ A 
JMP *-1 
LDA SUBCH 
IOR LSN 
JMP PCOMN 



CTLR LSN 

KLUDGE TO MAKE MINIFLOPPY WORK 

GET DISC ADDRESS 
MERGE LISTEN BIT 



C-113 



VIRTUAL CONTROL PANEL PAGE 3 



04475 


27461 


104600 


LISEN 


.JLB PHI1 






27462 


027475 










04476 


27463 000476 




OCT 


000476 


CTLR LSN 


04477 


27464 


000270 




LDA 


SUBCH 


GET DISC ADDRESS 


04478 


27465 


027667 




IOR 


TLK 


MERGE TALK BIT 


04479 


27466 


104600 


PCOMN 


.JLB HPIB 


SEND TO CARD 




27467 


027521 










04480 


27470 


000560 




LDA 


RPHI?, I 


GET DATA 


04481 


27471 


104600 




.JLB HPIB 


SEND TO THE CARD 




27472 


027521 










04482 


27473 


000560 




ISZ 


RPHI? 


BUMP RETURN ADDRESS 


04483 


27474 


000560 




JMP 


RPHI?, I 


SPLIT 


04484* 














04485* 


THIS 


ROUTINE 


UNDER 


ALL 


ITS MANY 


NAMES OUTPUTS ONE OR MORE 


04486* 


THE I 


'HI CHIP, 


» 








04487* 














04488 




027475 


PHI1 


EQU 


* 




04489 


27475 


003400 


PHI 


CCA 




SET FOR ONE CONTROL WORD 


04490 


27476 


000561 


PHIN 


STB 


RPHI 


SAVE RETURN ADDRESS 


04491 


27477 


000223 




STA 


CTR 


SET CONTROL WORD COUNTER 


04492 


27500 


000561 


PH 


LDA 


RPHI, I 


FETCH A WORD 


04493 


27501 


102630 




OTA 


DATA 


SEND IT TO THE CARD 


04494 


27502 


103730 




STC 


DATA.C 


PASS IT TO THE PHI 


04495 


27503 


000561 




ISZ 


RPHI 


MOVE POINTER 


04496 


27504 


000223 




ISZ 


CTR 


DONE ? 


04497 


27505 


027500 




JMP 


PH 


NO, TRY AGAIN 


04498 


27506 


000561 




JMP 


RPHI, I 


YES, BYE BYE 


04499* 














04500* 


THIS 


ROUTINE 


INPUTS A WORD FROM 


THE PHI CHIP. 


04501* 














04502 


27507 


000562 


PHI. I 


STB 


RPHII 


SAVE RETURN ADDRESS 


04503 


27510 


027546 




LDA 


PIN 


GET INPUT COMMAND 


04504 


27511 
27512 


104600 
027521 




.JLE 


t HPIB 


SEND IT TO THE CARD 


04505 


27513 
27514 


104600 
027475 




.JLE 


» PHI1 




04506 


27515 


100000 




OCT 


100000 


TELL CARD TO INPUT 


04507 


27516 


102530 




LIA 


DATA 


FETCH DATA 


04508 


27517 


027731 




AND 


0377 


MASK OFF UPPER BYTE 


04509 


27520 


000562 




JMP 


RPHII, I 


RETURN 
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04510* 

04511* 

04512* 

04513* 

04514* 

04515 

04516 

04517 

04518 

04519 
04520 

04521 
04522 

04523 

04524 

04525 

04526 

04527* 

04528* 

04529 

04530 

04531 

04532 

04533 

04534 
04535 
04536 
04537 
04538 
04539 
04540 
04541 
04542 
04543 
04544 
04545 
04546* 



THIS ROUTINE OUTPUTS A WORD TO THE PHI CHIP AND WAITS FOR IT TO BE 
SENT OUT TO THE BUS. IF IT TAKES TOO LONG A TIMEOUT OCCURS 
AND THE DISC LOAD IS TERMINATED WITHOUT FURTHER RETRIES 



27521 000563 

27522 102630 

27523 103730 

27524 027755 



HP IB 



STB RHP IB 
OTA DATA 
STC DATA.C 
LDB M5600 



27525 000245 HPIBLP LDA TBGCNT 

27526 002306 CCE.INA.SZA 

27527 027526 JMP *-1 

27530 102230 SFC DATA 

27531 000563 JMP RHPIB.I 

27532 000001 ISZ B 

27533 027525 JMP HPIBLP 

27534 026632 JMP DCER 



27535 000564 PHIFL STB RPHIF 

27536 027666 LDA CMDF 

27537 102631 OTA CMND 

27540 027746 LDA M4 

27541 104600 .JLB PHIN 

27542 027476 

27543 060043 OCT 060043 

27544 031002 OCT 031002 

27545 000537 OCT 000537 

27546 031004 PIN OCT 031004 

27547 027666 LDA CMDF 

27550 102631 OTA CMND 

27551 027752 LDA M100 

27552 002006 INA.SZA 

27553 102330 SFS DATA 

27554 000564 JMP RPHIF, I 

27555 103730 STC DATA.C 

27556 027552 JMP *-4 



SAVE RETURN ADDRESS 
OUTPUT DATA 
START THE OUTPUT 
PROCESSOR INDEPENDENT TIMEOUT 7 
SECONDS FOR CS80 

WAIT 1.25 MS 

FLAG 30 INDICATES FIFO EMPTY 
RETURN WHEN FLAG SET 
DONE WITH TIME OUT? 
NO, GO AROUND AGAIN 
ERROR, TIME OUT 



SAVE RETURN ADDRESS 
ENABLE 

FLAG 
SET CONTROL WORD COUNT 



FLUSH OUTBOUND FIFO 

PHI OUTPUT COMMAND 

TELL DISC TO SHUT UP 

SET FLAG WHEN FIFO HAS DATA 

ENABLE 

FLAG 
SET MAXIMUM LOOP 

ANY DATA ? 
NO, EXIT 
YES, EMPTY IT 
TRY AGAIN 
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04547* 
04548* 
04549 
04550 

04551 
04552 

04553 

04554 

04555 
04556 

04557 

04558* 

04559* 

04560* 

04561* 

04562* 

04563* 
04564* 
04565* 
04566* 
04567* 
04568 

04569 
04570 
04571 
04572 
04573 
04574 

04575 
04576 
04577 
04578 
04579 

04580 
04581 
04582 
04583 
04584 
04585 
04586 

04587 
04588 
04589* 



OUTPUT 2 BYTES TO THE HPIB CARD 



27557 000565 

27560 000257 

27561 001727 

27562 027731 

27563 104600 

27564 027521 

27565 000257 

27566 027731 

27567 104600 

27570 027521 

27571 000565 



HPIBX STB RHPIBX 
STA HPIT 
ALF.ALF 
AND 0377 
.JLB HPIB 

LDA HPIT 
AND 0377 
.JLB HPIB 

JMP RHPIBX, I 



SAVE RETURN ADDRESS 
SAVE DATA 



GET LOW BYTE 



*********************************** 

SCNSC SCANS THE SELECT CODE ETC FROM THE STRING INTO 

THE A REGISTER. IT SKIPS IF THERE IS A NUMBER IN THE 

STRING. 

IT LEAVES STORE. POINTER WITH THE BYTE ADDRESS OF THE 

FIRST CHAR AFTER THE NUMBER 



27572 

27573 
27574 
27575 
27576 
27577 
27600 
27601 
27602 
27603 
27604 
27605 
27606 

27607 
27610 
27611 
27612 

27613 
27614 
27615 
27616 
27617 



000545 
000264 
002400 
000274 
000260 
027776 
027713 
005200 
000360 
000360 
105763 
105762 
027632 
027620 
027723 
000260 
000274 
100043 
000260 
000274 
000360 
027603 



SCNSC STB 
STA 
CLA 
STA 
STA 
LDB 
ADB 
RBL 
STB 

SCNLP LDB 
LBT 
JLY 



RSCNSC SAVE RETURN ADDRESS 
SCETC SAVE DEFAULT VALUE 



FILE 
TEMP 
...SPTR 
02 



FILE ZERO IF NO NUMBER 



POINT AT START OF STRING 
POINT AT FIRST WORD OF SCETC 
MULT BY 2 TO MAKE BYTE ADDRESS 
STORE. POINTER SAVE POINTER TO REST OF STRING 
STORE. POINTER GET BYTE ADDRESS OF NEXT DIGIT 



ISDIG IS IT A DIGIT?? 

NO, DONE 

MAKE DIGIT BINARY 

SECOND WORD OF TWO WORD NUMBER 
MULT BY 8 



JMP SCNDN 

XOR 060 

ADA TEMP 

LDB FILE 

LSL 3 

STA TEMP 

STB FILE SAVE 2ND WORD 

ISZ STORE. POINTER NEXT BYTE 

JMP SCNLP GO DO NEXT BYTE 
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04590 

04591 
04592 

04593 

04594 

04595 

04596 

04597 

04598 

04599 

04600* 

04601* 

04602* 

04603 

04604 

04605 

04606 

04607* 

04608 

04609 

04610 

04611* 

04612 

04613 

04614* 

04615 

04616 

04617* 

04619* 

04620 

04621 

04622 
04623 
04624 
04625 
04626 
04627 
04628 
04629 
04630 
04631 

04632* 



27620 000260 

27621 000274 

27622 100041 

27623 000274 

27624 000207 

27625 006400 

27626 101044 

27627 002002 

27630 000264 

27631 000545 



SCNDN LDA TEMP 

LDB FILE 

LSL 1 

STB FILE 

STB SAVEX 

CLB 

LSR 4 

SZA 

STA SCETC SAVE IT 

JMP RSCNSC.I RETURN 
ISDIG CHECKS THE CHAR IN A AGAINST RANGE ZERO TO 7 
SKIPS IF IT IS IN RANGE. DOES NOT CHANGE A OR B 



GET TWO WORD QUANT. 

SHIFT FILE NUMBER TO SECOND WORD 

SAVE IT 

PASS FILE NUMBER IN X REGISTER 

PUT REST OF STUFF IN RIGHT PLACE 



AND 



27632 000261 

27633 027750 

27634 002020 

27635 027644 

27636 027747 

27637 002021 

27640 027644 

27641 000261 

27642 105772 

27643 000001 

27644 000261 

27645 105772 

27646 000000 



27647 
27650 

27651 
27652 

27653 
27654 
27655 
27656 

27657 
27660 
27661 
27662 

27663 
27664 



021706 
000370 
105772 
000000 



ISDIG STA CHAR 
ADA M48 
SSA 
JMP ISDIGDN 

ADA M8 
SSA.RSS 
JMP ISDIGDN 

LDA CHAR 
JPY 1 



ISDIGDN LDA CHAR 
JPY 



001722 STMAP 

105745 

021754 

027662 

000001 

002004 

006004 

105760 

027653 



.MBUF 



ALF.RAL 
LDX .N40 

LDB .MBUF 
STA B.I 
INA 
INB 
ISX 

JMP *-4 
LMAP 
DEF .DO 
DEF MPBUF 
JPY 



SAVE CHARACTER 
CHECK AGAINST ZERO 

NOT A DIGIT 

CHECK AGAINST 8 

NO GOOD 

RETURN AND SKIP 



RESTORE A REG 
RETURN AND DONT SKIP 



*32 

32 ENTRIES 

BUFFER ADDRESS 

PUT ENTRY IN MAP BUFFER 



ISZ X REG. 

TO VALUES CONTAINED 
RETURN 
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04634* 












04635* 


CONSTANTS 


AND STUFF 


LIKE TE 


04636* 












04637 


27665 


060200 


DMACW 


OCT 


060200 


04638 


27666 


103004 


CMDF 


OCT 


103004 


04639 


27667 


000500 


TLK 


OCT 


000500 


04640 


27670 


000440 


LSN 


OCT 


000440 


04641 


27671 


002400 


.ICW 


OCT 


002400 


04642 


27672 001000 


.OCW 


OCT 


001000 


04643 


27673 017015 


CTRS 


OCT 


017015 


04644 


27674 


041421 


CDC1 


OCT 


41421 


04645 


27675 


051021 


RDC1 


OCT 


51021 


04646 


27676 


015446 


ECSAND OCT 15446 


04647 


27677 


070060 


.PO 


OCT 


70060 


04648 


27700 


062061 


• $D1 


OCT 


62061 


04649 


27701 


031464 


ASC34 ASC 


1,34 


04650 


27702 


053405 


WENQ 


OCT 


53405 


04651 


27703 


070062 


.P2 


OCT 


70062 


04652 


27704 


071462 


.S2 


OCT 


71462 


04653 


27705 


072460 


.UO 


OCT 


72460 


04654 


27706 


000021 


.DC1 


OCT 


000021 


04655 


27707 


000122 


R 


OCT 


122 


04656 


27710 


000123 


S 


OCT 


123 


04657 


27711 


000127 


W 


OCT 


127 


04658 


27712 


000001 


01 


OCT 


000001 


04659 


27713 


000002 


02 


OCT 


000002 


04660 


27714 


000003 


03 


OCT 


000003 


04661 


27715 


000006 


06 


OCT 


000006 


04662 


27716 


000007 


07 


OCT 


000007 


04663 


27717 


000010 


010 


OCT 


000010 


04664 


27720 


000012 


012 


OCT 


000012 


04665 


27721 


000017 


017 


OCT 


000017 


04666 


27722 


000020 


020 


OCT 


000020 


04667 




027706 


021 


EQU 


.DC1 


04668 


27723 


000060 


060 


OCT 


000060 


04669 


27724 


000076 


076 


OCT 


000076 


04670 


27725 


000077 


077 


OCT 


000077 


04671 


27726 


000200 


0200 


OCT 


000200 


04672 


27727 


000201 


0201 


OCT 


000201 


04673 


27730 


000204 


0204 


OCT 


000204 


04674 


27731 


000377 


0377 


OCT 


000377 


04675 


27732 


000400 


0400 


OCT 


000400 


04676 


27733 


000404 


0404 


OCT 


000404 


04677 


27734 


000406 


0406 


OCT 


000406 


04678 


27735 


000040 


BIT5 


OCT 


000040 


04679 




027672 


BIT9 


EQU 


.OCW 


04680 




027672 


01000 


EQU 


BIT9 


04681 


27736 


001100 


01100 


OCT 


001100 
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04682 


27737 001101 


01101 


OCT 001101 






04683 


27740 001005 


01005 


OCT 001005 






04684 


27741 007777 


07777 


OCT 007777 






04685 


27742 100000 


0100000 OCT 100000 






04686 


27743 177777 


.M1 


DEC -1 






04687 


27744 177776 


M2 


DEC -2 






04688 


27745 177775 


M3 


DEC -3 






04689 


27746 177774 


M4 


DEC -4 






04690 


27747 177770 


M8 


DEC -8 






04691 


27750 177720 


M48 


DEC -48 






04692 


27751 177700 


M64 


DEC -64 






04693 


27752 177634 


M100 


DEC -100 






04694 


27753 177242 


M350 


DEC -350 






04695 


27754 174700 


M1600 


DEC -1600 






04696 


27755 165040 


M5600 


DEC -5600 






04697 


27756 000156 


..D110 DEC 110 






04698 


27757 000170 


..D120 DEC 120 






04699 


27760 000633 


..D411 DEC 411 






04700 


27761 000634 


..D412 DEC 412 






04701 


27762 000323 


..D211 DEC 211 






04702 


27763 000714 


..D460 DEC 460 






04703 


27764 000637 


..D415 DEC 415 






04704 


27765 000644 


. .D420 DEC 420 






04705 


27766 027767 


DCTYP 


DEF *+1 


HEADS-CYL/SECT0RS-TRAC1 


04706 


27767 002037 




OCT 002037 


4/31 


MSC9800L 


04707 


27770 001020 




OCT 001020 


2/16 


MINI-FLOPPY 


04708 


27771 001036 




OCT 001036 


2/30 


88010-20 


04709 


27772 001040 




OCT 001040 


2/32 


7910 


04710 


27773 002460 




OCT 002460 


5/48 


7920 


04711 


27774 004500 




OCT 004500 


9/64 


7925 


04712 


27775 000460 




OCT 000460 


1/48 


7906 


04713* 












04714 


27776 000306 


...SPTR DEF STRNG 






04715* 












04716 


027777 


E0P3 


EQU • 






04717 






END 







Lines where ORG command appeared: 

42 

71 

264 

268 

273 

1457 

2551 

3526 
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Macro/ 1000 Cross reference 



* - Volatile reference (store, jump, call...) 



.$D1 4648 

.% 2459 

. ..CR 2573 

...SPTR 4714 

. ..W 2574 

..? 2575 

..B 2558 

..B1777 2465 

..B377 2464 

. .B77777 2466 

. .BEL 2567 

..BKS 2557 

..D110 4697 

..D120 4698 

..D211 4701 

..D411 4699 

. .D412 4700 

..D415 4703 

. .D420 4704 

. .D460 4702 

. .DEL 2560 

..DG1 2615 

..ENT 1446 

. .MBUF 714 

..MRBT 3931 

. .N40 2592 

. .NEXT 2572 

..RUN 2571 

. .USER 1168 

.2 2461 

.3 2462 

.? 2463 

.A 2471 

.AGAIN 2563 

• B 2473 

.B1 2577 

.B10 2499 

.B100 2502 

.B101 2581 

• B17 2579 

.B177 2582 

.B20 2498 

.B24 2580 

.B37 1402 

• B377 2583 

.B60K 2584 



3731 




1663 




3158 


3181 


4573 




3230 




Symbol 


not referenced 


2618 


2650 2681 


1504 


2091 


1472 


1476 2044 2052 2250 2264 


2322 




3116 




3110 


3179 


3617 




3767 




3858 




4048 




Symbol 


not referenced 


4265 




4419 




4159 




2582* 


3112 3183 


2781 


3092 


1117 




716 




3942* 




2740 


2751 


2652* 




2651* 




1145* 




1927 


1949 


1929 


1951 


1659 




1687 




Symbol 


not referenced 


1685 


2258 


2822 


3200 3220 


1578 




1979 




Symbol 


not referenced 


Symbol 


not referenced 


Symbol 


not referenced 


2409 




Symbol 


not referenced 


1350 


1363 


2911 


2921 3007 3057 3340 3348 


2924 


3371 



3370 



C-120 



Macro/ 1000 Cross Reference 



.B7 2578 

• BLR 2586 

.BOOT? 2503 

.BTERR 2559 

• C 2474 

.CIR 2010 

• CKSM 3706 

.COMND 2564 

.CR 2457 

.CT 2467 

.CTLT 2458 

.CTU 2409 

.D 2475 

.DO 1390 

1166 

• D10 2601 

.D16 2602 

.D2 2600 

• D310 2608 

.D311 2610 

.D312 2609 

.D314 2611 

.D315 2613 

.D317 2614 

• D32 2603 

.D320 2612 

.D40 2604 

.D64 2605 

.D91 2607 

.D97 2606 

.DC 2469 

.DC1 4654 

.DCSC 3934 

.DEL 2472 

.DIAG 2041 

• DIG1 2519 

.DISC 2436 

.DISTS 2430 

.DS 2468 

.DSJ 4435 

.DSSC 1387 

.E 2476 

.ENQ 2561 

.ENQAK 2757 

• ENQAS 2763 

• ENT 1538 

.ENTI 2456 

.EX 2340 



2840 
Symbol 
2414* 
2680* 

1913 
1914* 

Symbol 
3113* 
1657 
2399 
Symbol 
2400* 
1767 
516 

4629 

2786 

Symbol 

2624 

3225 

3266 

3234 

3273 

3310 

3322 

2765 

3331 

Symbol 

3191 

2998 

3002 

2403 

3669 

3939 

1893 

1946* 

Symbol 

2404* 

2406* 

2405 

4429* 

1191 

1691 

2769 

1464* 

2759* 

Symbol 

1573 

2269* 



not referenced 
2425* 2433* 2439* 

2274 

not referenced 

3184* 

1781 1844 1895 

not referenced 



2118 2215 



1787 1945 2202 2220 
710 713 796 854 



not referenced 



888 1051 



2997 

not referenced 



4667* 

1894 1919 

not referenced 



2268 

1526 1889* 2166* 2753* 

not referenced 



C-121 



Macro/ 1000 Cross Reference 



.F 2477 

.FLAGS 2018 

.G 2478 

.HELP 1734 

.1 2479 

.ICW 4641 

.L 2480 

..LCH1 1892 

.LCLP 1875 

.LDER 2427 

.LIA 2520 

.LIST 1838 

.LLP 1861 

.LLP2 1865 

.LOAD 2395 

.M 2481 

.Ml 4686 

.MAPS 2127 

.MASK 2079 

.MBUF 4630 

.MELO 546 

.MRBT 1198 

.MREG 1802 



.N . 

.N1 

.N10 

.N2 

.N20 

.N26 

.N27 



2482 
2585 
2591 
1426 
1427 
2595 
2594 



.N32000 2596 

.N40 1428 

.N48 2593 

• N5 2587 

.N6 2588 

.N65 2597 

.N7 2589 

• N8 2590 

• N91 2599 

.N97 2598 

.0 2483 

• OCW 4642 

.OUTIT 2014 

2096* 

.P 2484: 

.PO 4647: 

.P2 4651: 

.PAR 2086: 



1947 
1948* 
1683 
1660* 

1695 
3784 

1671 

1877* 

1882* 

1487 

1999 

1672* 

1890* 

1872* 

2255* 

1665 

3998 

1922* 

1916* 

4622 

562* 
1186* 
1666* 
1769 
2797 
Symbol 

369 

945 
2995 
Symbol 
2936 
1286 
3099 
2826 
3089 
Symbol 
Symbol 
Symbol 
Symbol 
2992 

1693 

3794 

1722* 

2100* 

1689 

3620 

3639 

1924* 



1915 

2254 
1879 

2442 
2045 



2053 



2257* 2259* 
1921 



1196* 

1785 2200 2218 

3126 3129 3203 3206 

not referenced 

1248 

not referenced 

4621 



not referenced 
not referenced 
not referenced 
not referenced 



4679* 

1825* 2039* 2061* 2075* 2083* 2092* 

1923 2144 2276 



C-122 



Macro/ 1000 Cross Reference 



.PRSET 2562: 2906* 

.PSET 1332: 1116* 

.PTDC 1189: 1173* 

.PTLER 3932: 3952* 

.PU 196: 3622* 

.Q 2485: 1677 

.R 2486: 1625 

.REGS 1908: 1670* 

.RENT 1537: 1574* 

.RM 2470: 2401 

.RMSC 1388: 1183 

.ROM 2419: 2402* 

.RTRN 2521: 1596 

.RUN 2348: 2271* 

.S 2487: 1925 

.S2 4652: 3657 

.SPC1 2565: 2816 

.SPC2 2566: Symbol 

.SPTR 3168: 2620 

.STAT 2095: 1926* 

.T 2488: 1661 

.TOO 1747: 1779* 

.T02 1751: 1631* 

• T03 1772: 1766* 

.T? 1781: 1764* 

.TRAC 2388: 2273* 

.TREG 1746: 1662* 

.U 2489: 2252 

.UO 4653: 3634 

• USER 2281: 2253* 

.V 2490: 1667 

.VIO 2099: 1668* 

.W 2491: 1627 

.WMP 2065: 1918* 

• X 2492: 1681 

.Y 2493: 1679 

.Z 2494: 1675 

.ZERO 2576: 2800 

A 0: 339 

548 549 

748 749 

825 829 

951 974 

1572 1704 

2659 2662 

3750 3896 

AEAUS 1437: 468 

AGAIN 1585: 1544* 



3052* 

1587* 2291* 2390* 



3628 3655 3729 
1669 2270 



2395* 2674* 



2358* 

2846 

not referenced 

2638 2639 3175 

1810 1827 2272 
1795* 1828* 

1768* 1770* 
1775* 



1917 2256 2420 



2823 


2833 


2841 








375* 


376* 


398 


434 


467 


547* 


552* 


553 


556* 


557 


584* 


745 


750 


755 


756 


811 


816 


820 


871 


872 


876 


877 


893 


896 


1016* 


1070* 


1249* 


1291* 


1352 


1365 


2135 


2262 


2398 


2634 


2641 


2646 


2665 


2668 


2672 


2902* 


2956 


3050* 


3900 


4217 


4409* 


4469* 






528 


1438 










2563 













C-123 



Macro/ 1000 Cross Reference 



ALTO 1432: 

1299 

ALT1 1433: 

390 

AMESS 2547: 

AS. IN 3054: 

AS.IZ 3041: 

AS.OT 3060: 

ASC34 4649: 

ASFLG 192: 

ASR.O 1440: 

ASR.1 ...... 1441: 

B 0: 

1054 
2951 
4524* 

B1 1391 

B100 1407 

B1000 1413 

B1 00000 1422 

B100024 1421 

B1 00300 1409 

B100340 1410 

B100K 1419 

B11 1398 

B1400 1414 

B17 1399 

B170360 1411 

B177700 1423 

B1 77777 1424 

B2 1392 

B20 1400 

B200 1408 

B24 1401 

B3 1393 

B3004 1415 

B37 2500 

B377 1412 

B4 1394 

B40 1403 

B5 1395 

B6 1396 

B6412 1416 

B7 1397 

B76K 1418 

B77 1404 

B7777 1417 

B77777 1420 



342 


343 


350 


351 


355 


362 


501 


1431 














332 


336 


338 


346 


354 


358 


359 


497 


503 












1614 














2989* 














2899* 














3009* 














3733 














688* 


2967 












477 














489 














310 


334 


337* 


389 


421 


460 


718 


1251* 


1281 


1289* 


1307 


1316 


2191 


2942* 


3023 


3316» 


3831 


3835 


3947* 


4353 


4413* 


4623* 














420* 


513 


773 










544 


586 


673 


917 


983 


1019 


1125 


734 


916 


1123 










1334 














Symbol 


not referenced 










1231 


1236 












703 


846 












379 


386 












582 














765 














970 














605 


1224 












931 














Symbol 


not re 


ferenced 










423 


666 


990 


1084 


1144 






664 


915 


1017 


1018 


1124 






Symbol 


not referenced 










349 














296 


788 


894 


959 


1041 


1175 




Symbol 


not re 


ferencec 










1564 


1857 


2071 


2334 








1246 














961 


1141 












723 














1058 


1178 


1219 










644 














494 














541 


1028 


1133 


1172 


1213 


1262 




492 


502 












1013 


1068 












499 














809 


818 


827 


868 









C-124 



Macro/ 1000 Cross Reference 



BASE 129 

BEAUS 1439 

BEXEX 2351 

BFLAG 161 

BIT15 2501 

BIT5 4678 

BIT7 1429 

BIT9 4679 

BKKMS 3121 

BKSMES 3213 

BKUP 3123 

BLBT 1438 

BMESS 2548 

BOOT? 2624 

BTERR 2441 

BUFF 2518 

CDC1 4644 

CERR 1726 

2109* 

2182* 

CERR.P1 2570: 

CERR2 1725: 

CHAR 132: 

CHBR 1283: 

CHKIO 1277: 

CHKSUM 286: 

CI. ID 2966: 

CI.IZ 2891: 

2057* 

CLDN 2329: 

CLMES 2536: 

CLRM 2302: 

CLRM1 2313: 

CMDF 4638: 

CMND 80: 

4398* 
CNTR 124: 

2827* 
3140 

3897* 

CNTRL 2246: 

C0M01 2118: 

C0M1 1655: 

COMN 2103: 

C0MN1 ...... 1649: 

COMND 1639: 

1996* 
2446* 



Symbol 


not re 


ferenced 








466 














2571 














Symbol 


not re 


ferenced 








1558 














4294 














1257 














4116 


4357 


4372 


4385 


4680* 






3118 














3131 


3210 












3111* 














521 














1619 














2503 














2415* 


2426* 


2434* 


2559 








1701 














3641 














1697* 


1710* 


1771* 


1789* 


1812* 


1846* 


1977* 


2120* 


2128* 


2131* 


2137* 


2146* 


2174* 


2178* 


2204* 


2222* 


2266* 


2278* 


2570 






3125* 


3192* 


3201* 










1943* 


1953* 


1958* 


1966* 


1970* 


2407* 


2421* 


2999* 


3109 


3157 


3178 


4603* 


4612 


4615 


1293* 


1297* 


1309* 


1318* 


1322* 


1326* 




1007* 














Symbol 


not referenced 








2362* 


2758* 


2898* 


2973* 


2982* 


2988* 


3008 


1463* 


1599* 


1633* 


1725* 


1984* 


2004* 


2037* 


2292* 


2357 


2441* 










2315* 














2302 














2275* 














2326* 














4393 


4530 


4538 










3044* 


3055* 


3061* 


3785* 


3795* 


3863* 


3916* 


4531* 


4539* 












1874* 


1881* 


2784* 


2789* 


2793 


2795* 


2802* 


2844* 


3090* 


3100 


3106* 


3123 


3127* 


3135 


3143* 


3149* 


3675* 


3681 


3699* 


3742* 


3755* 


3902* 














1664* 














1708* 


1829* 


1975* 


2107* 








Symbol 


not re 


ferenced 








2011* 


2066 


2080* 










1643* 














1658* 


1728* 


1736* 


1761* 


1782* 


1888* 


1920* 


2015* 


2068* 


2119* 


2170* 


2213* 


2216* 


2337* 


2564 















C-125 



Macro/ 1000 Cross Reference 



CORCNT 123: 

CPUST 50: 

1 165« 
2763* 

CRLF 2527: 

2158 

CS.CM 3022: 

CS.WF 3028: 

CT.DP 3717: 

CTDPO 3724: 

CTDPL 3749: 

CTER 3707: 

CTEX 3712: 

CTI.B 3783: 

3777* 

CTI.W 3773: 

CTLD 3649: 

CTLDL 3692: 

CTO.B 3792: 

CTO.W 3801: 

3658 
3748* 

CTR 102: 

CTRS 4643: 

CTU 3611: 

CYLNDR.OFFSET . . .143: 

D1SV 97: 

D2 2515: 

D32 2517: 

D7 2516: 

DALTO 1431: 

DATA 78: 

1324« 
3035* 
3374* 
4493* 

DC. 01 4326: 

DC. ID 4166: 

DC.IN 4047: 

DC. 10 4095: 

DC.NO 4403: 

DC.N1 4418: 

DC.N2 4431: 

DC.RW 4263: 

DC80 4235: 

DC80 4245: 

DC80A 4256: 

DCER 4040: 



834* 
294* 



298* 543* 606* 704* 932* 
260* 1576* 1640* 2412* 



1214* 1247* 

3221* 3851* 3958* 3968* 



1131* 
2704* 



2915* 2919* 2977* 



1485 1715 

2227 2247 

2907* 2913 

Symbol not referenced 

3651* 

3740* 3765* 

3756* 

3615* 3647* 3715* 3769* 

3726* 

3643 3667* 3673* 3676* 



1747 1818 1847 1859 1884 



3662 

3625* 

3683* 

3638 

3627 

3660 

3753* 

4491* 

3663 

2413* 

2669* 

3880* 

1912 

1899 

1639 

Symbol 

1287* 

1325* 

3037* 

3864* 

4494* 

4318* 

4157* 

3984* 

4057* 
4410* 
4406* 
4427* 
3987* 
4097* 
4101* 
4244* 
3976* 



3666* 3678* 3685* 

3645* 

3700* 

3671* 3762 3804* 

3629 3635 3640 

3728 3730 3732 

3758 

4496* 



3737 3763 3774* 
3692* 3702* 



3806 

3642 3654 

3734 3736 



3656 
3745* 



3537* 

3971* 4345 

3892* 3904 

2049 2344 



4002* 4027 4035 



1990 

not referenced 

1294* 1317* 1319* 

2934* 2935* 2937* 

3046* 3047* 3048* 

3866* 3871* 3873* 

4507* 4516* 4517* 



4023* 
4414* 



1320* 


1321* 


1323* 


2954* 


3033* 


3034* 


3241* 


3315* 


3326* 


3874* 


3898* 


3899* 


4522* 


4542* 


4544* 



4031* 
4099* 



3988* 4032* 4128* 4163* 4526* 



C-126 



Macro/ 1000 Cross Reference 



DCEX 4041: 

DCFM 4178: 

DCLDR 3965: 

DCLP 4005: 

DCOMN 4393: 

DCRLD 3955: 

DCRWE 4445: 

DCSC 2495: 

DCTO 126: 

DCTYP 4705: 

DFLAG 162: 

1802* 

DIG1 169: 

DIG2 170: 

DIG3 171: 

DIG4 172: 

DIG5 173: 

DIG6 174: 

DIGS 175: 

DISC. ID 141: 

4141 

DISCO 3982: 

DISPLAY 119: 

DMA 1075: 

DMACF 1077: 

DMACW 4637: 

DMAQD 1076: 

DONE 3710: 

DPNTR 160: 

DSJGO 3322: 

DS.01 4376: 

DS.B 3369: 

DS.CM 2950: 

DS.FT 2933: 

3320* 

DS.GT 3307 

DS.IN 2919 

DS.IZ 2901 

DS.OT 2924 

DS.TG 2911 

DS.WF 2930 

DSADD .198 

DSCER 1203 

DSCHK 199 

DSCNT 197 

DSCONT 3279 

DSDNL 3377 

DSDUN 3270 



3994* 

4164* 

2438 

4037* 

4331* 

2677* 

4416* 

2436 

4051* 

4139 

1608* 

1838* 

2519 

3083* 

3084* 

3085* 

3086* 

3087* 

3091* 

3983* 

3959* 

1137 

1023 

1021 

4271 

1024 

3664* 

1703* 

3309* 

4324* 

3339* 

3342 

2365 

3334 

3248* 

2990* 

Symbol 

3010* 

2984* 

3227* 

3254* 

1200 

3255* 

3252* 

3272* 

3236 

3251* 



4036* 

4171* 
3941* 



4000* 
4168* 
3539* 

4380* 
3540* 
4422* 



4250* 4401 



1700* 
1908* 
2615 



3124 
4052 



1702 
2819 
3082* 



1711 1746* 1759 1778* 



3136 
4082* 



3142 
4084 



1255 
1059 



1038 



4085* 4094 4113 



1465 
1077 



1242* 1244 

1025 1027 
1057 

1026 1034 
1714* 1721 



3341 3357* 3359 

3344* 3346* 

2905 2931* 2952 

3372 

3253* 3256* 3263* 3270* 

not referenced 



3242* 3324* 

3257 3258* 3337* 3354 

3259 3260* 3264 
3261* 



1471 1474 



3029* 3237 3313 



3360* 



C-127 



Macro/ 1000 Cross Reference 



DSEEK 4335: 

DSEX 3277: 

DSINR 3345: 

DSLD 3219: 

DSLDO 3234: 

DSLD1 3240: 

DSLER 3276: 

3321* 

DSNXT 3299 

DSPLY 1242 

DSRD 3248 

DSRDL 3256 

DSSC 2496 

DSVCP 2948 

DSWEX 3365 

DSWR 3331 

DSWRO 3338 

DSWR1 3354 

DTPC 4197 

DTYER 4158 

DTYPE 4192 

DV4 1443 

DWRT 4382 

ECCCNT 122 

ECMES 2541 

ECSAND 4646 

ENDVCP 2361 

ENT2 1589 

ENTRY 1539 

EOPO 1448 

EOP1 2549 

E0P2 3525 

EOP3 4716 

EPROM 32 

ERMES 2531 

EX1 3135 

EX2 3147 

EX3 3157 

EXEX 2350 

EXEX.P1 2569 

EXEX2 2357 

EXIT? 3109 

EXLOAD 194 

FILE 144 

3887* 
4245 

FIRST 186: 

FTGF 2945: 



4281* 

3281* 

3312 

1193* 

3305* 

Symbol 

2953* 

3325* 

3285* 

847* 
3265* 
3262* 
2430 
3333 
3349* 
3231* 
3363* 
3362* 
4192* 
4174* 
4143* 

505 
4368* 

783* 
1524 
3626 
1332* 
1509* 
1446 
Symbol 
Symbol 
Symbol 
Symbol 

273* 
1726 
3114* 
3155* 
3151* 
2569 
Symbol 
1580* 
3098* 
3233* 
2666* 
3977 
4571* 
1542* 
2938* 



3290* 3297* 3351* 

2432 

not referenced 

3224* 3228* 3238* 3243* 3268* 3314* 

3335* 3367* 3373* 

3296* 

1201* 1225* 1232* 



4146* 4148* 4151* 4154* 



1520 

3653 3727 

2350* 

1527* 1582* 1586* 

not referenced 
not referenced 
not referenced 
not referenced 
1457* 2551* 3526* 



not referenced 



3279* 

3239 

3979* 

4583 

1590* 



3283 

3304* 

4011 

4586* 

2710* 



3294* 3295* 

3623 3630 3855 

4013* 4161 4208 

4591 4593* 



3857* 
4235 



C-128 



Macro/ 1000 Cross Reference 





. 2937: 


2943* 


















2295* 


















3212* 
















. 3096: 


3107* 


3120* 


3133* 














1656* 


1910* 


1934* 


2771 


3096* 


3195* 








2922* 


3058* 
















2994* 


















3003* 
















2173* 


1707 
2194 


1763* 


1807 


1839* 


1974* 


2106* 


2127* 




. . 1998: 


1972* 


1995* 
















2246* 
















. . 3178: 


3196* 


















1931* 
















. . . 77: 


665* 


667* 


668* 


677* 


684* 


685* 


692* 




1014* 


1278* 


1280* 


1556* 


1557* 


1982* 


1994* 


2042* 




2050* 


2716* 


2718* 


2892* 


2894* 


2896* 


3822* 


3824* 






3180* 


















3174* 


















3690* 


3704* 












HEAD. CYLINDER 


. . .145: 
4237 


2670* 
4246 


3972* 
4251 


4014 
4344 


4017* 


4206* 


4220 


4225* 






1734 


















4076 


4117 


4187 


4295 


4297 


4305 


4343* 




4354 


4358 


4373 


4386 


4431* 


4479 


4481 


4504 




4553 


4556 


















4525* 














HPIBX .... 


. . 4549: 
4 346 


4299 


4301 


4303 


4307 


4309* 


4311* 


4313* 






4550* 


4554 














. . 3032: 


2925 


3024 


3056* 


3062* 


3786* 


3796* 








3036* 


















Symbol 


not referenced 












686 


















3102* 


















: 574 


641 














. . .111 


575* 


1379* 


1382* 














. 1069 


















1228 


















583 
















. . .584 


588* 


















; Symbol 


not re 


ferenced 












: 1000* 


1380* 














. . .961 


: 947* 


















: 1103* 


















: 960* 


962* 


991* 


998* 


1110* 


1220* 





IOESC 1234 

1064* 



1008* 1032* 1036* 1040* 1046* 1056* 1061* 



C-129 



Macro/ 1000 Cross Reference 



IOIDEF 1049 

IOIJMP 1380 

IOINT 1050 

IOLO 936 

IOL1 949 

I0L2 972 

I0L3 974 

I0L4 1003 

IOL5 1091 

IOLP 1376 

ION. 1 1294 

ION. 2 1299 

IONO 967 

ION1 982 

I0N2 995 

ION3 1084 

ION4 1098 

I0N6 691 

IONXT 1932 

IOREG 1955 

IORGN 134 

2000 

IPF 898: 

IPRTY 853: 

ISDIG 4603: 

ISDIGDN 4615: 

ITBG 635: 

KMES 2540: 

L1 2838: 

LAST 270: 

LERR 136: 

3267* 
3706* 
3921* 
4363* 

LISEN 4475: 

LSN 4640: 

LSTR 157: 

M1 1425: 

M100 4693: 

M1600 4695: 

M2 4687: 

M3 4688: 

M350 4694: 

M4 4689: 

M48 4691: 

M5600 4696: 

M64 4692: 

M8 4690: 



999 

1015 

1049 

950« 

956* 

979* 

981* 

1073* 

1101* 

922 

1288* 

1285* 

941* 

976* 

984* 

1005* 

1094* 

674* 

1928* 

1950* 

1933* 

891* 
852 

3097* 
4606* 

634 
1518 
2845* 
Symbol 
1481 
3274* 
3713* 
4049* 
4394* 
4465* 
4075 
2640 

368 
4468 
3943 
4058 
4459 
4249 
4532 
4604 
4518 
3721 
4608 



989* 



1106* 



1936 1937* 1955 1959 1963 1967 

899* 1264* 

4579* 
4610* 



not referenced 
1489 2444 



3311* 
3714* 
4105* 
4420* 

4472 
3172* 

380 
4540 

4376 



3319* 
3768* 
4125* 
4423* 



2676* 
3323* 
3813* 
4129* 
4435* 



3226* 
3332* 
3819* 
4160* 
4442* 



3235* 3240* 

3366* 3618* 

3859* 3919* 

4266* 4315* 



3190 3193* 3199 3204* 



3741 4050 



C-130 



Macro/ 1000 Cross Reference 



MAP 165: 727* 

910« 1338* 

2325* 2627* 

4004 4006* 

MAP01 2149: 2142* 

MAP02 2160: 2164* 

MAP15 2156: 2168* 

MAPP1 2177: 2238* 

MAPP2 2226: 2175* 

MAPPG 2173: 2145* 

MBUF 2151: 2154 

MCNTR 103: 1842* 

MESOO 3391: 2527 

MES01 3385: 2528 

MES02 3394: 2529 

MES03 3395: Symbol 

MES07 3399: 2567 

MES09 3402: 2530 

MES11 3459: 2532 

MES12 3462: 2546 

MES13 3466: 2547 

MES14 3468: 2548 

MES15 3470: 2534 

MES16 3473: 2535 

MES22 3476: 2533 

MES32 3480: 2536 

MES33 3483: 2537 

MES35 3487: 2538 

MES36 3490: 2539 

MES37 3493: 2540 

MES38 3496: 2542 

MES41 3500: 2543 

MES43 3504: 2541 

MES44 3508: 2545 

MES46 3512: 2531 

MES47 3516: 3213 

MES48 3519: 3121 

MES62 3522: 2427 

MLOST . 96: 295* 

802 855 

MMESS 2534: 1751 

MPBUF 167: 714 

MPLP 718: 725* 

MPMES 2538: 1854 

MPT 113: 579* 

MPTJMP 1383: 594 

MPTR 127: 1852* 

2162* 2190* 



731 733* 763 

2139* 2184 2207 

3299* 3300 3686 

4026 4034 



843 864 905 
2231 2305* 2313 
3688* 3908 3910* 



2188 

1886* 2157* 2163* 



not referenced 



2566 



2565 



2544 



540 565* 699 

862* 1155 

1822 1849 

1376 2151 2187 



2229 
1383* 

1863 
2206* 



702* 740 767 
2210 4630 



1865 1867 1870* 2155* 2160 



C-131 



Macro/ 1000 Cross Reference 



MRBT 2618: 

MRBT2 2620: 

MSIZE 121: 

MT? 1827: 

MTM1 746: 

MTST 699: 

MTSTO 802: 

MTST3 761: 

MTST4 795: 

MTST5 905: 

MTSTE 841: 

874* 

MTSTL 814 

MTSTM 731 

MU2 1442 

MZSV 168 

N1 2504 

N10 2508 

N16 2509 

N2 2505 

N23 2510 

N24 2511 

N27 2512 

N32 2513 

N4 2506 

N48 2514 

N8 2507 

NDCLR 187 

NEXT 1633 

NOVCP 1430 

NVCP 1219 

NXPG 2215 

NXPG1 2206 

NXPG2 2225 

01 4658 

010 4663 

01000 4680 

0100000 4685 

01001 4289 

01005 4683 

01100 4681 

01101 4682 

012 4664 

017 4665 

02 4659 

020 4666 

0200 4671 

0201 4672 



1198 


3931 




2688* 






844« 


906* 1514 2314 2633 




1808* 


1817* 




742« 






Symbol 


not referenced 




882* 






Symbol 


not referenced 




903 






735* 


752* 758* 




720* 


779* 782* 792* 822* 831* 857* 


879* 


908* 




805* 






812* 


835* 




498 






2308 


2332 




1570 


2223 




Symbol 


not referenced 




1968 






1791 






1964 






1960 






1956 






1896 


2134 2180 




1674 


2152 




Symbol 


not referenced 




1861 


1873 2156 




921* 


1585* 1607* 




2572 






Symbol 


not referenced 




1210* 






2195* 






2199* 


2201* 




2219* 






4153 


4167 




4306 






4098 






3891 






4096 






4183 






4100 






4095 






3632 






4133 


4204 




3812 


3890 4186 4574 




4296 






4274 






4150 







C-132 



Macro/ 1000 Cross Reference 



0204 4673: 

021 4667: 

03 4660: 

0377 4674: 

4555 

0400 4675 

0404 4676 

0406 4677 

06 4661 

060 4668 

07 4662 

076 4669 

077 4670 

07777 4684 

0T1 2826 

0T2 2846 

OTDL 2785 

0TDL2 2796 

0UT1C 3006 

0UT2C 3012 

OUTD 2780 

OUTN 2814 

1630 
2006 
2236 

P.1 2743 

PO 275 

PO.A 183 

PO.B 184 

PO.CT 177 

P0.T3 178 

POCOO 1244 

P1 „ . 1462 

P2 

P3 

P3.CT .... . 
PAGE 



..... 2553 

..... 3528 

..... .195 

..... .166 

2217 

PARTIAL 137: 

PCNTR 104: 

PCOMN 4479: 

PDOWN 886: 

PE 109: 

PE1 1529: 

PEADD 151: 

PEDEF1 852: 

PEDEF2 903: 

PEFLAG 118: 

PEINT 1361: 



4145 
3761 
4053 
3787 



4114 
3793 



4156 
4199 



4170 
4349 



4356 4508 4552 



4012 

4147 

Symbol not referenced 

3738 

3637 3816 4581 

3832 3836 

4304 

3821 

Symbol not referenced 

2821* 

2825* 

2791* 

2803* 

Symbol not referenced 



2912 
1490 
1473 
1705 
2014* 

2750* 
Symbol 
Symbol 
Symbol 

971* 
Symbol 
1258* 
Symbol 
Symbol 
Symbol 
3245* 
1698* 
2226* 
3876* 
1862* 

4473* 

885 

108* 
1594 

705* 

798 

761 
1368* 
1529 



2976* 

1517* 

1477 

1754 

2059 



1523* 
1502* 
1758 
2089* 



2445 
1505 
1804 
2104* 



1612 1617 1622 
1853* 1858 1866 
2161 2192 2232 



2754* 

not referenced 
not referenced 
not referenced 

972* 978 982 
not referenced 

1269* 

not referenced 

not referenced 

not referenced 

3308* 3318* 3353* 3361* 

1719 1864* 1875 1878 1880* 2189 

2235 2237 

3894 3992* 4028 

1871* 2153* 2167* 



576* 762* 799* 1378* 1595* 

869* 889 1492 1499 1503 1591* 



1606* 1641 1648* 



C-133 



Macro/ 1000 Cross Reference 



PEJMP 1378: 

PEJMPI 108: 

PEJSB 1530: 

PEMAP 152: 

PEMES 2542: 

PERTN 107: 

PETMP 106: 

PFW 112: 

PFWDEF1 885: 

PFWJMP 1381: 

PGMES 2539: 

PH 4492: 

PHI 4489: 

PHI. I 4502: 

PHI.L 4457: 

PHI. TALK 4456: 

4387 

PHI1 4488: 

PHIFL 4529: 

PHIN 4490: 

PIN 4537: 

PMESS 2546: 

PNTR 98: 

3103* 
4144* 

PNTRS 99 

POINTER 188 

PPNTR 128 

PREV 1791 

PRMES 2537 

PRMPT 2529 

PROER 1224 

PRSET 2291 

PRTLP 1260 

PTDC 3936 

PTDFO 427 

PTDF1 428 

PTDS 1191 

PTJMP 430 

PTJPR 429 

PTJYO 431 

PTLER 1200 

PTLP 3939 

PTRM 1183 

PTRTO 401 

PTRT1 410 

PTSO 1172 

PTS1 1208 

PTS2 1127 



591 














593* 














1592 














865* 


1498 












1645 














1369* 


1530* 












1348* 


1353 


1361* 


1366 








578* 


708* 


1381* 










707 














589 














2233 














4497* 














4077 


4109* 


4121* 


4181* 


4288* 


4319* 


4326* 


4080* 


4083* 


4124* 


4130* 


4131* 


4290* 


4440* 


4071* 


4118 


4286* 


4322* 


4374 


4436* 




4089* 


4106* 


4178* 


4291* 


4329* 


4335* 


4364* 


4337* 


4369* 


4382* 


4438* 


4466* 


4475* 


4505 


4066* 


4428* 












4059 


4377 


4460 


4533 








4503 














1609 














2782* 


2787* 


2788* 


2796 


2798* 


2799 


3093* 


3104* 


3128 


3130* 


3145* 


3147 


3148* 


4140* 


4149* 


4152* 


4155* 


4169* 


4172* 


4198 


4202 


3094* 


3144 












3679* 


3694 


3698* 


3720* 


3746 


3749 


3754* 


2739* 


2743 


2748* 










1786* 


1788* 












2293 














1649 














611* 


615* 


621* 


631* 


646* 






2277* 


2562 












1254* 














1189 














419 


422 












401 














1176* 














424 














397 














413 














1187* 


1195* 


3932 










3950* 














1179* 














399 


428 


429* 










408* 


431 












1153* 


1157* 


1161* 










1129* 


1139* 


1181* 










1122* 















C-134 



Macro/ 1000 Cross Reference 





. . . 1116: 


1097* 


1268* 












. . . 3944: 


3948* 
















1626 


1628 


1720 1900 


1988 


1992 


2114 




2747* 


2770 


2801 


2824 2836* 


2842 


3015* 


3017 






2741* 


2749* 


2752* 












1470 


1486 


1488 1497 


1512 


1519 


1525 




1610 


1615 


1620 


1624 1646 


1650 


1716 


1718 




1727 


1735 


1748 


1750 1752 


1756 


1819 


1821 




1823 


1848 


1850 


1855 1860 


1885 


1986 


2112 




2159 


2228 


2230 


2234 2248 


2294 


2303 


2443 




2817 


2847 


3117 


3119 3132 


3211 










Symbol 


not referenced 












2966* 


2969* 


2970* 












2891* 


2909* 


3049* 












Symbol 


not re 


ferenced 












2103* 


2116* 














3022* 


3025* 


3026* 












Symbol 


not re 


ferenced 












Symbol 


not re 


ferenced 










. . . .225: 


3611* 


3707* 


3708* 3712* 










. . . 4645: 


3659 
















4047* 


4193* 


4258* 












3955* 


3965* 


4040* 4041* 










. . . .242: 


4263* 


4444* 


4445* 












3369* 


3375* 












. . . .253: 


2950* 


2955* 


2957* 










. . . .252: 


2930* 


2933* 


2944* 2945* 


2946* 


3028* 






. . . .246: 


3307* 


3327* 














3219* 


3276* 


3277* 










. . . .241: 


4197* 


4230* 












. . . .216: 


Symbol 


not referenced 












1537 














. . . 1972: 


1962* 














. . . .208: 


2361* 


2363* 


2367* 












2757* 


2761* 


2767* 2772* 












2678* 














. . . 1444: 


506 














. . . 1445: 


510 
















Symbol 


not referenced 












2036* 


2038 












. . . .218: 


2987* 


3000* 














3080* 


3137* 


3139* 3160* 










. . . .219: 


1998* 


2007* 














3170* 


3182* 














Symbol 


not re 


iferenced 










. . . .237: 


4515* 


4523* 














4549* 


4557* 










RI.O .... 


. . . .259: 


3032* 
1892* 


3038* 
1901* 










RLCH1 . . . 


21V 





C-135 



Macro/ 1000 Cross Reference 



RLCHR 214 

RMERR 3922 

RMERR2 3921 

RMERR3 3919 

RMESS 2545 

RMLDR 3848 

RMSC 2497 

R0M2 3862 

ROM3 3898 

R0M4 3886 

ROM5 3891 

ROUT1 211 

ROUT2C 256 

ROUTD 215 

ROUTN 212 

RPHI 235 

RPHI? 234 

RPHIF 238 

RPHII 236 

RPUTC 217 

RPUTS 207 

RRMLD 232 

RRSTO 222 

RS.SC 244 

RSCNSC 221 

RSTOR 2702 

RTG.BF 249 

RTG.TB 250 

RTI.B 227 

RTI.W 226 

RTO.B 228 

RTO.W 229 

RVCODE 285 

S 4656 

S.SC 3811 

SACOMN 101 

SAVEA 86 

SAVEB 87 

3646* 

SAVEE 84: 

SAVEG 88: 

2713 

SAVEI 82: 

SAVEM 93: 

1803 

SAVEO 83: 

SAVEP 85: 

SAVEQ 91: 



Symbol 


not referenced 


385 3* 


3868* 






3870* 








3885* 








1985 


2111 






1185* 


2424 


3538* 




2422 








3888* 








3903* 








3882« 








3917* 








Symbol 


not referenced 


3012* 


3018* 






2780* 


2805* 






2814* 


2848* 






4490* 


4492 


4495* 


4498* 


4458* 


4480 


4482* 


4483* 


4529* 


4543* 






4502* 


4509* 






2926* 


3006* 


3063* 




2737* 


2746* 






3848* 


3906* 


3922* 


3923* 


2702* 


2712* 


2730* 




3811* 


3840* 


3841* 




4568* 


4599* 






2351* 








2917* 


2981* 


2983* 




2972* 


2974* 


2979* 




3783* 


3788* 






3773* 


3779* 






3792* 


3797* 






3801* 


3807* 






572 








3644 


3764 






3223* 


3614* 


3852* 


3975* 


2110* 


2115 






1072* 


1545* 


1616 


2343* 


573* 


958* 


1621 


2341* 


3766* 


4126* 


4158* 


4441* 


1555* 


2682 


2723 




1340* 


1559* 


1938 


1981 


1339* 


1541* 


2707 


2709* 


1571* 


1753 


1757 


1772 


1815* 


1824 


1851 




1553* 


2719 






1569* 


1611 


2345* 


2354 



2687* 2729 3815* 
2632* 3275* 3365* 



1993 2043 2051 
1783 1793 1794* 
2518 2625* 



1335* 1547* 2727 



C-136 



Macro/ 1000 Cross Reference 



SAVEW 94: 

2070* 

SAVEX 89: 

SAVEY 90: 

SAVEZ 92: 

SCER 3841: 

SCETC 135: 

4598* 

SCM 1405: 

SCNDN 4590: 

SCNLP 4577: 

SCNSC 4568: 

SECTR.TRACK . . . .146: 

4228 

SELFERR 2543: 

SIDE? 189: 

SOFTERR 2544: 

SPC2 2532: 

SPC3 2533: 

SPTR 2450: 

SRGP1 1434: 

SRGP2 1435: 

SRGP3 1436: 

START 292: 

STATS 79: 

STMAP 4620: 

2630* 
STORE. POINTER . . .159: 

3207* 

STORM 1814: 

STRNG 155: 

STRTR 2568: 

SUBCH 140: 

SVCHR 100: 

TBG 110: 

TBGCNT 120: 

TBGDEF1 634: 

TBGJMP 1377: 

TCCWI 3066: 

TCCWO 3065: 

TEMP 131: 

2818 
3778 
4209* 

TEMPO 181: 

943* 
1086* 
2058 
3649 



1337* 


1349 


1362 


1563* 


1629 


1856 


2065 


2074 


2333 


2354 










1560* 


2705 


4594* 










1561* 


2706 












1549* 


2725 












3818* 


3826* 












1184* 


1192* 


3814 


3820 


3828 


3940* 


4569* 


942 














4580* 














4588* 














2410 


2423 


2431 


2437 








2673* 


3973* 


4018 


4021* 


4201* 


4210 


4216* 


4229* 


4239 


4252 


4347 


4355 






1469 














Symbol 


not re 


ferenced 








1496 














1623 


1749 


1820 










1717 














2249 


2260 


2396 










433 














435 


461 












457 














901* 


1135* 


1142* 


2392 








3041* 


3043* 












736* 


842* 


860* 


866* 


911* 


1344 


2317* 


3301* 


3689* 


3911* 


4007* 








2622* 


2636 


2647 


3177* 


3186 


3194* 


3205 


4576* 


4577 


4587* 










1811* 














2450 


3168 


4714 










2631 














2660* 


3717 


3833* 


4073 


4471 


4477 




1911* 


1944 


1987 


2113 








577* 


626* 


642* 


1377* 








639* 


2939 


3944 


4062 


4519 






625 














596 














3054 














3042 


3060 












525* 


527 


2133* 


2140 


2197* 


2211 


2815* 


2832* 


2837 


2839* 


2843 


3013* 


3016 


3776* 


3802* 


3805 


3862* 


3883 


3886 


4134* 


4166 


4215 


4219* 


4226 


4572* 


4582 


4585* 


4590 


766* 


780 


785* 


832 


923* 


937* 


938* 


949 


953 


1002* 


1003 


1012 


1067 


1071* 


1100* 


1104 


1234 


1653* 


2003* 


2005 


2048* 


2251* 


2267 


2419 


2619* 


2649 


2685* 


3229 


4272 


4316 


4366 


4395 


4425 







c-137 



Macro/ 1000 Cross Reference 



TEMPI 180: 

2060 
3751 

TEMP2 179: 

3759* 

TEMP3 182 

TFLAG 164 

TG.BF 2981 

TG.TB 2972 

TLK 4639 

TMESS 2535 

TRAPFLAG 154 

TRYCT 125 

TRYNM 3933 

UIJMPI 115 

UIT 116 

UIT1 1386 

UITINT 1348 

UITJMP 1384 

UITJSB 1385 

UITRTN 114 

UNIT 139 

4340 

UNIT.HEAD 142: 

UNL 4463: 

VCP.FLAG 190: 

VCPDS 2908: 

VCPEX 2368: 

VCPL 665: 

VCPL1 680: 

VCPSC 191: 

VCPTFLG 153: 

VERMG 2528: 

VFP 1463: 

VFP.O 1492: 

VFP.1 1507: 

VW1 147: 

VW2 148: 

VW3 149: 

W 4657: 

WENQ 4650: 

WMAP 46: 

XEQT 201: 

2002* 

ZERO 2460: 

Macro: No errors total 



925* 


948 


973 


995 


1001 


1085 


2056* 


3633* 


3636 


3680* 


3696 


3697* 


3703 


3747* 


3752* 


3757 












1088* 


1105* 


3613* 


3670* 


3710 


3722* 


3724 


3355* 


3358 












Symbol 


not re 


ferenced 








1655* 


1706 


1762* 


1806 


1973* 


2105* 


2193 


2760* 














4074 


4478 












1755 














920* 


1120 












3937* 


3949* 












3936 














601* 














115* 


581* 


1384* 










580 














1386 














600 














598 














1354* 


1385* 












2663* 


3619* 


3621 


3837* 


4112 


4241 


4293 


4352 


4371 


4384 










4065* 


4176* 


4184 


4257* 


4278 


4339 


4350 


4424 














681* 


1108* 


1208 


1266 








2904 














2364 














678* 














670* 














682* 


2895 












293* 


539 


564* 


701 


1127 


1507 


2389* 


1511 














1216 














1467* 


1483* 












1494* 














4236* 


4248* 


4302 










4238* 


4254* 


4300 










1240* 


4255* 


4298 










3650 


4273 


4317 


4367 


4396 


4426 




3735 














1562 














203* 


1597* 


1978 


1980* 


1983* 


1989 


2001* 


2046* 


2047* 


2054* 


2055* 


2521* 






1935 


1991 
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A600 BASESET MICROCODE 



APPENDIX D 



+ + + 



A representative listing of the baseset microcode used in the A600 computer 
is presented in the following pages. This listing may not accurately reflect 
the as-installed configuration of microcode actually contained in ROM. The 
listing is solely intended to serve as an aid to those users attempting to 
develop microprograms. 
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A600 BASESET DEFINITIONS (01/19/82) 



LINE 



STATEMENT 



42 

43 
44 

45 
46 
47 



&LBDEF 12101-18024 REV 2210 820524 



WORD 56 



REGISTER DEFINITIONS 



1 TITLE A600 BASESET DEFINITIONS 01/1 

2 LIST E 
3 
4 
5 
6 
7 
8 
9 

10 RO: 

11 R1: 

12 R2: 

1 3 R3: 

14 R4: 

15 R5: 

16 R6: 

17 R7: 

18 R8: 

19 R9: 

20 R10: 



9/82 



21 R11: 

22 R12: 

23 R13: 

24 R14: 

25 R15: 

26 ; 

27 A: 

28 B: 

29 X: 

30 Y: 

31 MAPD: 

32 MAPX: 

33 PC: 

34 ; 

35 CAB: 

36 CXY: 

37 TAB: 

38 MPY: 

39 MPY4: 

40 DIV: 

41 PORM: 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



B 00000 
B 00001 
B 00010 
B 00011 
B 00100 
B 00101 
B 00110 
B 00111 
B 01000 
B 01001 
B 01010 



B 01011 
B 01100 
B 01101 
B 01110 
B 01111 

B 00000 
B 00001 
B 00010 
B 00011 
B 01101 
B 01110 
B 01111 

B 10000 

B 10010 

B 10001 

B 10011 

B 10111 

B 10100 



EQU B 11111 



MACRO A REGISTER 

MACRO B REGISTER 

MACRO X^REGISTER 

MACRO Y REGISTER 

DATA1 AND DATA2 MAP REGISTER 

EXECUTE MAP NUMBER REGISTER 

MACRO P REGISTER 

IR11 SELECTS A OR B 
IR03 SELECTS X OR Y 
MEMORY ADDR SELECTS A OR B 
QO SELECTS AB OR ZB IN REG 
QO SELECTS AB OR ZB IN REG 4 
DIVIDEND SIGN XOR DIVISOR SIGN 

SELECTS ADD/SUB 
PCMRG FROM IR DECODE SELECTS PC 

OR R12 



AM2901 SOURCE OPERANDS (R S) 



AQ: 
AB: 
ZQ: 



EQU 
EQU 
EQU 
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A600 BASESET DEFINITIONS (01/19/82) 



LINE 



STATEMENT 



48 
49 
50 
51 
52 

53 
54 

55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 

83 
84 
85 
86 
87 
88 
89 
90 
91 
92 

93 
94 

95 
96 



ZB: 
ZA: 
DA: 
DQ: 
DZ: 



EQU 
EQU 
EQU 
EQU 
EQU 



AM2901 ALU FUNCTIONS (R FUNCTION S) 



ADD: 

SUBR: 

SUBS: 

OR: 

AND: 

NOTRS: 

EXOR: 

EXNOR: 

PASS: 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



AM2901 DESTINATION CONTROL 



QREG: 

NOP: 

RAMA: 

RAMF: 

SRAMQR: 

SRAMR: 

SRAMQL: 

SRAML: 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



JTAB OPERAND VALUES 



LVLO: 

LOWSC: 

IR0T3: 

SRG1: 

SRG2: 

WORDCNT: 



EQU B 00000000 
EQU B 00000100 
EQU B 00001000 
EQU B 00001001 
EQU B 00001010 
EQU B 00001011 



CONDITION DEFINITIONS 



-EXTERNAL STATUS REGISTER 



INITIAL DECODE VALUE 

LOW SELECT CODE I/O INSTR 

IR BITS TO 3 FOR COUNTER 

MAP CLE,SL» SRG OPERATION 

MAP SECOND SRG SHIFT OPERATION 

I/O CNTRL WORD MAPS 



IRSKIP: 

IR11: 

QPEI: 

SINTRQ: 

MPEN: 

IORQ: 

INTRPT: 



EQU B 0000 
EQU B 0010 
EQU B 0011 
EQU B 0100 
EQU B 0101 
EQU B 0110 
EQU B 0111 



SKIP BASED ON COND SELECTED BY IR 

INSTRUCTION REG BIT 11 

PENDING PARITY ERROR 

PENDING I/O INTERRUPT 

MEM PROTECT ON 

I/O REQUEST 

INTERRUPT 
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A600 BASESET DEFINITIONS (01/19/82) 



LINE 

97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 



NOTE: 



SGNXOVR : 

Z: 

NZ: 

OVR: 

NOVR: 

C: 

NC: 

SIGN: 

NSIGN: 

LT: 

ULE: 



STATEMENT 



2904 STATUS REGISTERS 

THE 2910 CC INPUT IS ACTIVE LOW, SO THE 
2904 CODE MUST BE USED TO PRODUCE CT=L 
FOR THE DESIRED TEST. 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



0010 
0101 
0100 
0111 
0110 
1011 
1010 
1111 
1110 
0011 
1101 



SIGN .XOR. OVR 

ZERO 

NOT ZERO 

OVERFLOW 

NOT OVERFLOW 

CARRY 

NOT CARRY 

SIGN SET (NEGATIVE) 

SIGN CLR (POSITIVE) 

2'S COMPLEMENT LESS THAN 

UNSIGNED LESS EQUAL 



INSTRUCTION DEFINITIONS 



FILLER: DEF H 00, H 00, H 00, H 00, H 00, H 00, H 00 ; NO PROG 27S35 WORD 
AM2901: DEF 21X.5VB 00000, 5VB 00000, 3VX, 3VX, 3VX, 16X 



2910 OPERATIONS 

JZ: DEF B 0000, 52X 

CALL: DEF B 0001,1 OX, B 1 ,29X, 12V: JX 

CCALL: DEF B 0001,10X,B 0,29X,12V:% 

JMAP: DEF B 0010.52X 

JP: DEF B 0011,10X,B 1,29X,12V:% 

CJP: DEF B 0011,10X,B 0,29X,12V:X 

PUSH: DEF B 0100.10X.B 1 ,29X, 12V: XX 

CPUSH: DEF B 0100.10X.B 0,29X,12V:*X 

CVECT: DEF B 0110.10X.B 0,29X,12V:% 

JRP: DEF B 0111,10X,B 0.29X.12V:* 

RFCT: DEF B 1000.52X 

RPCT: DEF B 1001, 40X, 12V: % 

RET: DEF B 1010.10X.B 1.41X 

CRET: DEF B 1010.10X.B 0.41X 

CJPP: DEF B 1011.10X.B 0,29X,12V:% 

JPP: DEF B 1011.10X.B 1,29X,12V:% 

LDCT: DEF B 1 100, 40X, 12V: %X 

LOOP: DEF B 1101.10X.B 0.41X 

CONT: DEF B 1110.52X 

TWB: DEF B 1111, 10X.B 0,29X,12V:% 



JUMP ZERO, INITIALIZE 
UNCOND CALL 
CONDITIONAL CALL 
JUMP THRU MAP 
UNCOND JUMP 
CONDITIONAL JUMP 
PUSH/UNCOND LOAD COUNTER 
PUSH/COND LOAD COUNTER 
CONDITIONAL VECTOR 
CONDITIONAL JUMP THRU REG OR PL 
REPEAT LOOP IN FILE 
REPEAT LOOP IN PIPELINE 
UNCONDITIONAL RETURN 
CONDITIONAL RETURN 
COND JUMP PIPELINE AND POP 
UNCOND JUMP PIPELINE AND POP 
LOAD COUNTER AND CONTINUE 
END LOOP TEST 
CONTINUE 
LOOP AND COND BRANCH 



D-4 



A600 BASESET DEFINITIONS (01/19/82) 



LINE 



STATEMENT 



145 
146 
147 
148 
149 
150 
151 
152 

153 
154 



IMM: DEF 4X.B 0110,32X,16V 
IMMB: DEF 4X.B 01 10.40X.8V: % 



IMMEDIATE DATA (16 BITS) 



2904 OPERATIONS 



CARRYH: 
CARRYL: 
CARRYEXT: 
CARRYREG: 
CARRYUC : 



DEF 
DEF 
DEF 
DEF 
DEF 



16X.B 01.38X 
16X.B 00.38X 
16X.B 10.38X 
16X.B 11.38X 



i p ■» 



155 
156 
157 
158 



CARRY HIGH INTO 2901 CONTROL 
CARRY LOW INTO 2901 CONTROL 
EXTERNAL CARRY INTO 2901 
CARRY STATUS REG 

MICRO STATUS REG CARRY 
BIT 

CARRYNUCt DEF 16X.B 11.1X.B 01.19X.B 1000, 12X ; USR NOT CARRY BIT 
; v » ;..'■> » ..• 



16X.B 11.1X.B 01.19X.B 0110, 12X 



SETMSR: 
RSTMSR: 

159 ►INVMSR: 

160 "LODMSR: 
LODMSRCI: 
LODUSR: 
LODUSRCI: 
LODUSROR: 
SWAPEO: 
ENBLC : 
ENBLO: 



161* 
162 
163 
164 

165 
166 
167 
168 
169 
170 
171 
172 

173 
174 

175 
176 
177 
178 

179 
180 
181 
182 

183 
184 
185 
186 
187 
188 
189 
190 
191 



DEF 18X.B O.B 00.19X.B 0001, 12X 
DEF 18X.B O.B 00.19X.B 0011, 12X 
DEF 18X.B O.B 00.19X.B 0101, 12X 
DEF 18X.B 0,B 10.19X.B 1111, 12X 
DEF 18X.B 0,B 10.19X.B 1000, 12X 
DEF 18X.B 1.B 01.19X.16X 
DEF 18X.B 1.B 01.19X.B 1000, 12X 
DEF 18X.EU.B 00 19X.B 0.110, 12X, 
DEF 8X.B 00.8X.B 8,B D0,19X,B 01 
DEF 9X,B"6,46X <,-> to • >■ 

DEF 8X,b"3,47X *•"> I * 



MACHINE STATUS REG OP 



LOAD MACHINE STATUS 

LOAD MSR WITH CARRY 

MICRO STATUS REG OP 

LOAD USR WITH CARRY 

.MICRO REG, OVERFLOW 

o6\l2X ; SWAP MC & MO 

; ENABLE MC BIT 

; ENABLE MO BIT 



REG 
INVERT 

INVERT 
RETAIN 
IN MSR 



DOUBLE INTEGER SPECIALS 

* NUCLDMSR - SELECT NOT UC AS CARRY-IN 

LOAD MSR & USR WITH CARRY 

* UCLDMSR - SELECT UC AS CARRY-IN AND 

LOAD MSR & USR WITH CARRY 



NUCLDMSR: DEF 18X.B 001.19X.B 1000. 12X 
UCLDMSR: DEF 18X.B 001.19X.B 0110, 12X 



AND 
INVERT 



CARRY INVERTED 
CARRY NORMAL 



SELECT CONDITION 



CONDMSR: 

CONDUSR: 

CONDEXT: 

CONDLMSR: 

DIVCOND: 

DIVUCOND: 

SHIFT: 
ROTATEC : 
ROTATE: 



DEF 
DEF 
DEF 
DEF 
DEF 
DEF 

DEF 
EQU 
EQU 



15X.B 0.3X.B 10. 19X.4VX, 12X 

15X.B 0.3X.B 01.19X.4VX, 12X 

15X.B 1.3X.B 10,19X^4VX,12X , _ 

15X.B 0,2X,B 5 0,B 10, 19X.4VX, 12X ; MSR TEST COND AND LOAD 

15X.B 0.3X.B 00.19X.B 1111.12X jDIVIDE SPECIAL-In EQV Mn 

15X.B 0.3X.B 11.19X.B 1111, 12X ; DIV SPECIAL- (NOT) In 



MACHINE STATUS REG 
MICRO STATUS REG 
EXTERNAL STATUS REG 



i\ IX- 



52X.4VS 
B 1001 
B 1010 



SHIFT LINKAGE OPCODE 
ROTATE WITH CARRY 
VANILLA ROTATE 
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A600 BASESET DEFINITIONS (01/19/82) 



LINE 



STATEMENT 



192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 

215 
216 
217 
218 

219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 



JTAB: DEF 13X.B 0,30X,8V,4X 
FULL CYCLE SPECIAL 



SPFNOP: 

MREAD: 

MWRITE: 

IRMRG: 

LEMAPD: 

L4D: 

MIAK: 

IF ETCH: 

RFETCH: 

IORD: 

IOWR: 

MKLRON: 

MKLROFF: 

STRD: 

SPRD: 



DEF 4X.B 
DEF 4X,B 
DEF 4X,B 
DEF 4X,B 
DEF 4X,B 
DEF 4X,B 
DEF 4X.B 
DEF 4X.B 
DEF 4X,B 
DEF 4X,B 
DEF 4X.B 
DEF 4X,B 
DEF 4X.B 
DEF 4X,B 
DEF 4X,B 



0000, 
0001, 
0010, 
0011, 
0100, 
0101, 
0111, 
1000, 
1001, 
1010, 
1011, 
1101, 
1100, 
1110, 

1111, 



48X 
48X 
48X 
48X 
48X 
48X 
48X 
48X 
48X 
48X 
48X 
48X 
48X 
48X 
45X.3V 



SPRD OPERANDS 

MAPRD: EQU B 001 

PELENL: EQU B 010 

PELENH: EQU B 011 

PRLEN: EQU B 100 

ECIRRD: EQU B 101 

SWRD: EQU B 110 

SLACK: EQU B 111 

HALF CYCLE SPECIAL 

SPHNOP: DEF 10X.B 000, 43X 

LDMDOR: DEF 10X.B 011.43X 

LDMAR: DEF 10X.B 001, 43X 

ENVE: DEF 10X.B 010, 43X 

SPWR: DEF 10X.B 1 1 1 .38X.2V, 3X 

LDST: DEF 10X.B 100, 43X 

ENCN: DEF 10X.B 101 , 34X, 4V,5X 

LDAER: DEF 10X.B 110.43X 

SPWR OPERANDS 

LDIM1: EQU B 01 

MAPWR: EQU B 10 

LEDWR: EQU B 11 



; ENABLE INST DECODE 



NOP 

MEMORY READ 
MEMORY WRITE 
MRG READ SPECIAL 

Y BUS ROTATED LEFT 4 TO D BUS 
I/O INTERRUPT ACKNOWLEDGE 
FETCH NEXT INSTRUCTION 
REFETCH I/O INSTRUCTION 
I/O READ 
I/O WRITE 

MEMGO INTERRUPT KILLER ON 
MEMGO INTERRUPT KILLER OFF 
STATUS READ 
SPECIAL READ 



READ A MAP REGISTER 
PARITY ERR LATCH ENBL LOW 
PARITY ERR LATCH ENBL HIGH 
MEMORY PROTECT LATCH 
EXT CENTRAL INTRPT REG 
SWITCH REG READ 
SLAVE ACKNOWLEDGE 



NOP 

LOAD MDOR 

LOAD MAR 

LOAD/RETAIN E AND IN MSR 

SPECIAL WRITE 

LOAD STATUS REG 

ENABLE CONTROL DECODER 

LOAD ADDR EXTENTION REG 



LOAD INTERRUPT MASK REG 

LOAD MAP DATA OUT REG / MAP WRITE 

LOAD LED REGISTER 
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A600 BASESET DEFINITIONS (01/19/82) 



INE 




STATEMENT 


240 


; ENCN OPERANDS 


241 


• 
f 






242 


CNNOP: 


EQU 


B 0000 


243 


CLRPEI: 


EQU 


B 0001 


244 


CLRMPI: 


EQU 


B 0010 


245 


SETMPI: 


EQU 


B 0011 


246 


CLRTBT: 


EQU 


B 0100 


247 


SETTBT: 


EQU 


B 0101 


248 


CLRPFWI : 


EQU 


B 0110 


249 


ICRS: 


EQU 


B 0111 


250 


CLRTDI : 


EQU 


B 1000 


251 


SETTDI : 


EQU 


B 1001 


252 


CLRDTST: 


EQU 


B 1010 


253 


SETDTST: 


EQU 


B 1011 


254 


CLRPSFF: 


EQU 


B 1100 


255 


SETPSFF : 


EQU 


B 1101 


256 


CLRMPEN: 


EQU 


B 1110 


257 


SETMPEN: 


EQU 


B 1111 


258 


i 






259 


END 







;N0 OPERATION 

; CLEAR PENDING PARITY ERROR INTERRUPT 

; CLEAR PENDING MEMORY PROTECT INTERRUPT 

;GENERATE A PENDING MEMORY PROTECT INTERRUPT 

;CLEAR PENDING TIME BASE TICK INTERRUPT 

;SET A PENDING TIME BASE TICK INTERRUPT 

; CLEAR PENDING POWER FAIL WARNING INTERRUPT 

;GENERATE A CRS 

;TURN OFF TEMPORARY INTERRUPT DISABLE 

;TURN ON TEMPORARY INTERRUPT DISABLE 

:TURN OFF DATA BUS TEST LOOP BACK 

;TURN ON DATA BUS TEST LOOP BACK 

;TURN OFF PARITY SYSTEM FLIP-FLOP 

;TURN ON PARITY SYSTEM FLIP-FLOP 

;TURN OFF MEMORY PROTECT SYSTEM 

;TURN ON MEMORY PROTECT SYSTEM 



TOTAL DEFINITION ERRORS 
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A600 BASESET DEFINITIONS (01/19/82) 











i 


SYMBOL TABLE 












A 


A 


OOOOO 


AB 


A 


00001 


ADD 


A 


OOOOO 


AM2901 


D 




AND 


A 


00004 


AQ 


A 


OOOOO 


B 


A 


00001 


C 


A 


OOOOB 


CAB 


A 


00010 


CALL 


D 




CARRYEXT 


D 




CARRYH 


D 




CARRYL 


D 




CARRYNUC 


D 




CARRYREG 


D 




CARRYUC 


D 




CCALL 


D 




CJP 


D 




CJPP 


D 




CLRDTST 


A 


OOOOA 


CLRMPEN 


A 


0000E 


CLRMPI 


A 


00002 


CLRPEI 


A 


00001 


CLRPFWI 


A 


00006 


CLRPSFF 


A 


OOOOC 


CLRTBT 


A 


00004 


CLRTDI 


A 


00008 


CNNOP 


A 


OOOOO 


CONDEXT 


D 




CONDLMSR 


D 




CONDMSR 


D 




CONDUSR 


D 




CONT 


D 




CPUSH 


D 




CRET 


D 




CVECT 


D 




CXY 


A 


00012 


DA 


A 


00005 


DIV 


A 


00014 


DIVCOND 


D 




DIVUCOND 


D 




DQ 


A 


00006 


DZ 


A 


00007 


ECIRRD 


A 


00005 


ENBLC 


D 




ENBLO 


D 




ENCN 


D 




ENVE 


D 




EXNOR 


A 


00007 


EXOR 


A 


00006 


FILLER 


D 




ICRS 


A 


00007 


I FETCH 


D 




IMM 


D 




IMMB 


D 




INTRPT 


A 


00007 


INVMSR 


D 




IORD 


D 




IORQ 


A 


00006 


IOWR 


D 




I ROT 3 


A 


00008 


IR11 


A 


00002 


IRMRG 


D 




IRSKIP 


A 


OOOOO 


JMAP 


D 




JP 


D 




JPP 


D 




JRP 


D 




JTAB 


D 




JZ 


D 




L4D 


D 




LDAER 


D 




LDCT 


D 




LDIM1 


A 


00001 


LDMAPD 


D 




LDMAR 


D 




LDMDOR 


D 




LDST 


D 




LEDWR 


A 


00003 


LODMSR 


D 




LODMSRCI 


D 




LODUSR 


D 




LODUSRCI 


D 




LODUSROR 


D 




LOOP 


D 




LOWSC 


A 


00004 


LT 


A 


00003 


LVLO 


A 


OOOOO 


MAPD 


A 


OOOOD 


MAPRD 


A 


00001 


MAPWR 


A 


00002 


MAPX 


A 


OOOOE 


MIAK 


D 




MKLROFF 


D 




MKLRON 


D 




MPEN 


A 


00005 


MPY 


A 


00013 


MPY4 


A 


00017 


MREAD 


D 




MWRITE 


D 




NARG 


A 


OOOOO 


NC 


A 


OOOOA 


NOP 


A 


00001 


NOTRS 


A 


00005 


NOVR 


A 


00006 


NSIGN 


A 


OOOOE 


NUCLDMSR 


D 




NZ 


A 


00004 


OR 


A 


00003 


OVR 


A 


00007 


PASS 


A 


00003 


PC 


A 


OOOOF 


PELENH 


A 


00003 


PELENL 


A 


00002 


PORM 


A 


0001F 


PRLEN 


A 


00004 


PUSH 


D 




QPEI 


A 


00003 


QREG 


A 


OOOOO 


RO 


A 


OOOOO 


R1 


A 


00001 


R10 


A 


OOOOA 


R11 


A 


OOOOB 


R12 


A 


OOOOC 


R13 


A 


OOOOD 


R14 


A 


OOOOE 


R15 


A 


OOOOF 


R2 


A 


00002 


R3 


A 


00003 


R4 


A 


00004 


R5 


A 


00005 


R6 


A 


00006 


R7 


A 


00007 


R8 


A 


00008 


R9 


A 


00009 


RAMA 


A 


00002 


RAMF 


A 


00003 


RET 


D 




RFCT 


D 




RFETCH 


D 




ROTATE 


A 


OOOOA 


ROTATEC 


A 


00009 


RPCT 


D 




RSTMSR 


D 




SETDTST 


A 


OOOOB 


SETMPEN 


A 


OOOOF 


SETMPI 


A 


00003 


SETMSR 


D 




SETPSFF 


A 


OOOOD 


SETTBT 


A 


00005 


SETTDI 


A 


00009 


SGNXOVR 


A 


00002 


SHIFT 


D 




SIGN 


A 


OOOOF 


SINTRQ 


A 


00004 


SLACK 


A 


00007 


SPFNOP 


D 




SPHNOP 


D 




SPRD 


D 




SPWR 


D 




SRAML 


A 


00007 


SRAMQL 


A 


00006 


SRAMQR 


A 


00004 


SRAMR 


A 


00005 


SRG1 


A 


00009 


SRG2 


A 


OOOOA 


STRD 


D 




SUBR 


A 


00001 


SUBS 


A 


00002 


SWAPEO 


D 




SWRD 


A 


00006 


TAB 


A 


00011 


TWB 


D 




UCLDMSR 


D 




ULE 


A 


OOOOD 


WORDCNT 


A 


OOOOB 


X 


A 


00002 


Y 


A 


00003 


Z 


A 


00005 


ZA 


A 


00004 


ZB 


A 


00003 


ZQ 


A 


00002 
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A600 BASESET MICROCODE (06/11/82 «A) 



LINE 

1 

2 

3 
4 

5 
6 
7 
8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
45 
46 



ADDR 



STATEMENT 

TITLE 
NOLIST L 
LIST B,E 



A600 BASESET MICROCODE 06/14/82 *A [&LBPRM] 



&LBPRM 12101-18002 REV 2226 820524 



.FDIV FIXED 



NEWPC : EQU 
FILL: EQU 



; NON-ZERO FOR NEW PC BOARDS 
: NON-ZERO FOR FILL EMPTY AREAS 



««»*******«ft*o*ft*»««*»»**********ft*«ft**««»««»»*»*«******«»« 

«* 
»» 
»» 



*» 
** 
** 



A600 Baseset Microcode 



** Assumes: 

**- 2 cycle memory 

**- Target of memory write can be read first 

**- Target of inst fetch can be read first 

*» 

*» TDI: 

»*- Temporary Disable Interrupt is set to inhibit 

** interrupts at the conclusion of JMP.I, JSB.I or I/O 

** instructions so the next instruction is executed. 

**- The ENCN SETTDI order must be given at least one 

** cycle before IFETCH. TDI is automatically cleared 

•» by JTAB LVL0. 
*» 

** CARRY: 

»«- The Cn input to the ALU is XOR'D with 13. Thus 

«* the sense of carry is inverted for SUBR, OR, NOTRS 

** and EXNOR. 
«* 

** TAB Special: 

**- In A reg field, modifies source operand of DZ to ZA 

** if macro A or B register was addressed on last MREAD 

** or IFETCH (MRGREAD or MRGFETCH). Note that when TAB 

*• is used, only ONE operand can be sent to the ALU. 

** I.E. AB can not be coded as a source operand select 

** 

**- In B reg field, modifies destination operand of NOP 

** to RAMF if or 1 is in MAR. Normally, MAR is loaded 

** before MWRITE is issued. 
** 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE ADDR 



STATEMENT 



48 

49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 



»« «« 

** EQUATES •• 

«• «-» 



IMAPLOC : EQU 

VMALOC: EQU 

VMAPTE: EQU 

CPUID: EQU 

MICREVID: EQU 



H 0003 
H 0004 
H 0002 

H 0002 
H 0800 



BOOT MEMORY LOCATION OF IMAP REG 

VMA FAULT ROUTINE ADDRESS 

VMA PAGE TABLE POINTER LOCATION 

; A600 PROCESSOR ID NUMBER 
; MICRO CODE REVISION NUMBER 



UN-COMMENT THE FOLLOWING "NOLIST" TO LIST ONLY VMA 



NOLIST 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



STATEMENT 



66 
67 
68 
69 
70 
71 
72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 



Basic Instruction Decode 



« 
« 

* 
« 
* 
* 
» 
* 
* 
« 
» 
* 
* 
» 
» 
» 
» 
* 
« 
« 



« 

« 

« 
« 
« 
« 
* 
« 
« 
» 

« 
« 
* 

* 

* - Second microinstruction: 



- At the FETCH line, PC points to Next instruction. 

- After instruction mapping, MAR points to Next 
instruction and PC points to Next instruction + 1 . 

- First microinstruction: 

- Wait for previous instruction read to finish 

- Load MAR and scratch reg 12 with MRG C/Z address 

- Start read if MRG read inst or MRG Indirect 

- Save MRG address in scratch register 12. 

- Load 2910 counter reg with microaddress of 
instruction microcode routine. 



- Increments PC 

- IF ISZ, ST* or JSB THEN load MAR with MRG address 
ELSE load MAR with next instruction address or 
instruction address word address. 

- IF interrupt pending THEN jump to Interrupt handler * 
ELSE jump to instruction microcode routine. * 



« 

ft 

« 

» » 



00000 



00001 



FETCH: 
/ 
/ 
/ 

/ 
/ 
/ 
/ 



LDCT 



JRP INTERRPT 



& AM2901 ,R12,RAMF,PASS,DZ 

& JTAB LVL0 

& IRMRG - «"«-(•. «.i*b ^'"" ; ~ 

& LDMAR ; 

& AM2901 PORM.PC.RAMA.ADD.ZB 

& CONDEXT INTRPT 

& CARRYH 

& SPFNOP 

& LDMAR; 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 

105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 

117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 

131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 



ADDR 



00002 



00003 



00004 



00005 
00006 
00007 



00008 
00009 



STATEMENT 



* 

Memory Reference Group * 

• 

* 
» 

Assumes: - Result of memory read ends up in Q reg * 

**«*»ft«*«*»»»««ft««»«ft»ft«*ftX*ft»ft*»»»»««»»»«ftft«*»««»«*ft«««««« 



ADD 

CALL MRGIND 

CONT 



AD.I:: 

/ 

/ 

AD. :: 

/ 

/ 

/ 
/ 
/ 

/ 



IANDI : 

/ 

/ 

IAND: : 

/ 

/ 

/ 
/ 



JZ 



LOGICAL AND 
CALL MRGIND 

CONT 

JZ 



LOGICAL COMPARE 

If the two operands 
next instruction. Note 
instruction already. 



CP.I: 

/ 

/ 

cp. : 

/ 

/ 

CP.1: 



CALL MRGIND 



CONT 



CONT 



& AM2901 TAB,, QREG, PASS, DZ 

& LDMAR 

4 MREAD; 

& AM2901 TAB,,QREG,PASS,DZ 

& SPHNOP 

& IF ETCH; 

& AM2901 CAB,CAB,RAMF,ADD,AQ 

& CARRYL 

& LODMSR & ENBLC & ENBLO 

& SPFNOP 

& ENVE ; 



& AM2901 TAB,, QREG, PASS, DZ 

4 LDMAR 

& MREAD; 

4 AM2901 TAB,, QREG, PASS, DZ 

4 SPHNOP 

& IF ETCH; 

4 AM2901 A.A.RAMF.AND.AQ 

& SPFNOP 

& SPHNOP ; 



are not identical, skip the 
the PC points to the next 



& AM2901 TAB,, QREG, PASS, DZ 

4 LDMAR 

& MREAD; 

4 AM2901 TAB, R4.RAMF, PASS, DZ 

4 SPHNOP 

4 IF ETCH; 

4 AM2901 CAB,R4,NOP,EXOR,AB 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 



ADDR 



STATEMENT 



154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 
182 

183 
184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 



OOOOA 



OOOOB 



OOOOC 



OOOOD 



OOOOE 



OOOOF 



00010 



00011 



00012 



00013 



/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 



IORI: 
/ 
/ 
IOR:; 

/ 
/ 

/ 
/ 



ISZI:: 

/ 

/ 

ISZ:: 

/ 

/ 

/ 

/ 







& LODUSR 






4 SPFNOP 






& SPHNOP ; 


CJP 


FETCH 


& AM2901 ,, NOP, PASS, ZQ 
& CONDUSR Z 
4 SPFNOP 
& SPHNOP ; 


JZ 




& AM2901 PC, PC, RAMA, AD 
4 CARRYH 
& LEMAR 
& IFETCH; 



LOGICAL OR 



CALL MRGIND 



CONT 



JZ 



& AM2901 TAB,, QREG, PASS, DZ 

4 LDMAR 

4 MREAD; 

& AM2901 TAB,, QREG, PASS, DZ 

& SPHNOP 

& IFETCH; 

4 AM2901 A.A.RAMF.OR.AQ 

4 SPFNOP 

4 SPHNOP ; 



INCREMENT AND SKIP IF ZERO 
CALL MWRTIND 



CONT 



4 AM2901 TAB,, QREG, PASS, DZ 

4 LDMAR 

4 MREAD; 

4 AM2901 TAB, TAB, NOP, ADD, DZ 

4 CARRYH 

4 LODUSR 

4 LDMDOR 

4 MWRITE ; 



Increment of OFFFFH to will produce a carry out. 

Thus, if carry out, then SKIP. Since PC points to Next 
instruction + 1 , PC points to target of SKIP. 

Algorithm is subtract NOT carry out from PC and fetch. 



/ 
/ 
/ 

/ 
/ 
/ 



CONT 



JZ 



4 AM2901 ,PC,RAMF,SUBR,ZB 

4 CARRYNUC 

4 SPFNOP 

4 SPHNOP ; 

4 AM2901 PC, PC, RAMA, ADD, ZB 

4 CARRYH 

4 LDMAR 

4 IFETCH; 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



203 
204 
205 
206 
207 
208 
209 
210 
211 
212 

213 
214 

215 
216 
217 
218 

219 
220 
221 
222 
223 
224 

225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 

239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 



00014 



00015 



00016 



00017 



00018 



00019 



000 1A 



0001B 



JMP Indirect 

-It is assumed that the target of the JMP indirect 
can be read before it is fetched. This speeds up the 
indirect resolution. 



JMPI: 
/ 

/ 

/ 

/ 

/ 
/ 
/ 



JMP: 
/ 
/ 
/ 



CALL MWRTIND 



C0NT 



JZ 



JMP Direct 
JZ 



& AM2901 TAB, t QREG,PASS,DZ 

& LDMAR 

& MREAD ; 

& AM2901 ,PC,RAMF,PASS,ZQ 

& ENCN SETTDI 

& SPFNOP ; MAR POINTS TO TARGET 

& AM2901 ,PC,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& IFETCH : FETCH NEXT INST 



& AM2901 R12,PC,RAMF,ADD,ZA 

& SPFNOP 

& SPHNOP 

& CARRYH ; INC PC 



JSB Direct/Indirect 

-Since PC points to Next instruction + 1, PC-1 must 
be stored at JSB target. 



JSBI: 

/ 

/ 

JSBIVMA: CONT 

/ 

/ 

/ 



CALL MWRTIND 



0001C 



/ 

/ 
/ 

/ 
/ 
/ 

jsb: 
/ 
/ 
/ 



CONT 



JZ 



CONT 



& AM2901 TAB,, QREG, PASS, DZ 

& LDMAR 

& MREAD ; 

& AM2901 PC,TAB,NOP,SUBR,ZA 

& CARRYH 

& LDMDOR 

& MWRITE ; WRITE PC TO JSB TARGET 

& AM2901 ,PC,RAMF,ADD,ZQ 

& CARRYH 

& ENCN SETTDI 

& SPFNOP ; SET PC TO JSB TARGET + 

& AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 

& IFETCH ; FETCH NEXT INSTRUCTION 

& AM2901 PC,TAB,NOP,SUBR,ZA 
& CARRYH 
& LDMDOR 
& MWRITE; 
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A600 BASESET MICROCODE (06/14/82 *A) 



INE 


ADDR 


STATEMENT 








252 






CONT 




& AM2901 R12,PC t RAMF,ADD,ZA 


253 




/ 






4 CARRYH 


254 




/ 






& SPFNOP 


255 


0001D 


/ 






& SPHNOP ; 


256 






JZ 




& AM2901 PC, PC, RAMA, ADD, ZB 


257 




/ 






& CARRYH 


258 




/ 






& IFETCH 


259 


0001E 


/ 






& LDMAR; 


260 












261 






LOAD 






262 












263 




LD.I:: 


CALL 


MRGIND 


& AM2901 TAB,,QREG,PASS,DZ 


264 




/ 






& LDMAR 


265 


0001F 


/ 






& MREAD; 


266 




LD. : : 


JZ 




& AM2901 TAB, CAB, RAMF, PASS, DZ 


267 




/ 






& SPHNOP 


268 


00020 


/ 






& IFETCH; 


269 












270 






STORE 






271 












272 




ST.I:: 


CALL 


MWRTIND 


& AM2901 TAB,,QREG,PASS,DZ 


273 




/ 






& LODUSR 


274 




/ 






& LDMAR 


275 


00021 


/ 






& MREAD ; 


276 




ST. : : 


CONT 




& AM2901 CAB, TAB, NOP, PASS, ZA 


277 




/ 






& LDMDOR 


278 


00022 


/ 






& MWRITE ; 


279 






CONT 




& AM2901 ,PC,NOP,SUBR,ZB 


280 




/ 






& CARRYH 


281 




/ 






& SPFNOP 


282 


00023 


/ 






& LDMAR ; 


283 






JZ 




& AM2901 ,, NOP, PASS, ZQ 


284 




/ 






& SPHNOP 


285 


00024 


/ 






& IFETCH ; 


286 












287 






LOGICAL EXCLUSIVE OR 


288 












289 




XORI:: 


CALL 


MRGIND 


& AM2901 TAB,, QREG, PASS, DZ 


290 




/ 






& LDMAR 


291 


00025 


/ 






& MREAD; 


292 




XOR:: 


CONT 




& AM2901 TAB,, QREG, PASS, DZ 


293 




/ 






& SPHNOP 


294 


00026 


/ 






& IFETCH; 


295 






JZ 




& AM2901 A.A.RAMF.EXOR.AQ 


296 




/ 






& SPFNOP 


297 


00027 


/ 






& SPHNOP ; 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



299 
300 
301 
302 

303 
304 

305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 

323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 

343 
344 
345 
346 



00028 



00029 



0002A 



***»•****»•*»«*«•»*«»«*»»•*••»»***••**«»««*»*»«*»»*»***•«»•» 



• * 

;* Alter-Skip Group 

. * 


based on CL*/CC*/CM»/NOP 


« 
• 
» 


• * 

;* -ASG is mapped 16 ways 

;• and CCE/CLE/CME/NOP. 
. * 


* 
ft 
« 
ft 


;* - Accumulator ops: 
• • 

• » 
• « 


CL« 
CC» 
CM« 


- Clears A/B to 0000H 

- Sets A/B to OFFFFH 

- Inverts A/B (One's Complement) 


» 
» 
« 

* 


;« _ E-reg ops: 

• * 

• « 
• « 


CLE 
CCE 
CME 


- Clears E reg 

- Sets E reg 

- Inverts E reg 


» 

« 
• 
* 


;* - Algorithm: 
• « 






« 
* 


;* CL* - And register with zero with carry-in 

;* LOW. Cn+4 will be 0. 

;* CC* - Subtract register from itself with carry-in 

;• LOW. Cn+4 will be 0. 

;» CM* - Subtract register from zero with carry-in 

;* LOW. Cn+4 will be 0. 


« 
« 

» 
ft 
* 
» 

* 


;«tt»««ttft«ftftft««ft«»*»ft*ftttftftftftft*«ft»ftftft«ftft«tt«ttft»ft*«ft«ft«tt»ft««»««ftft 


ASCLANOP: JP ASCONT 

/ 

/ 

/ 

/ 


& AM2901 ,CAB,RAMF,AND,ZB 

& SPFNOP 

& SPHNOP 

& CARRYL 

& LODMSR ; LOAD YC BUFFER 


ASCMANOP: JP ASCONT 

/ 

/ 

/ 
/ 


& AM2901 , CAB, RAMF, SUBS, ZB 

& SPFNOP 

& SPHNOP 

& CARRYL 

& LODMSR ; LOAD YC BUFFER 


ASCCANOP: CONT 

/ 

/ 

/ 
/ 




& AM2901 CAB, CAB, RAMF, SUBS, AB 

& SPFNOP 

& SPHNOP 

& CARRYL 

& LODMSR ; LOAD YC BUFFER 


ASCONT: LDCT FETCH 

/ 

/ 




& AM2901 CAB, CAB, RAMA, ADD, ZB 
& LODMSR & ENVE & ENBLC & ENBLO 
& CARRYEXT 
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A600 BASESET MICROCODE (06/1 V82 «A) 



LINE 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 



ADDR 



0002B 



0002C 



0002D 



0002E 



0002F 



00030 



STATEMENT 

/ 

/ 

/ 
/ 



& IFETCH ; 
JRP SKIP & AM2901 ,, NOP, PASS, ZQ 
& CONDEXT IRSKIP 
& SPFNOP 
& SPHNOP ; 



Decode CLE - Reset Mc of 2904 

Method is to Load Machine Status Register bit Mc 

with state of Ic. Since Cn+4 is zero, a load with Cn+4 
will clear Mc bit. 



ASCLACLE: JP 

/ 

/ 

/ 

/ 

• 

ASCMACLE: JP 

/ 

/ 

/ 
/ 

• 

ASCCACLE: JP 
/ 

/ 
/ 
/ 

• 

ASN0PCLE: JP 

/ 

/ 

/ 

/ 



ASCONT & AM2901 .CAB.RAMF.AND, ZB 
& SPFNOP 
& SPHNOP 
& CARRYL 
& LODMSR & ENBLC ; CN+4 IS ZERO 

ASCONT & AM2901 , CAB, RAMF, SUBS, ZB 
& SPFNOP 
& SPHNOP 
& CARRYL 
& LODMSR & ENBLC ; CN+4 IS ZERO 

ASCONT & AM2901 CAB, CAB, RAMF, SUBS, AB 
& SPFNOP 
& SPHNOP 
& CARRYL 
& LODMSR & ENBLC ; CN+4 IS ZERO 

ASCONT & AM2901 , CAB, NOP, ADD, ZB 
& SPFNOP 
& SPHNOP 
& CARRYL 
& LODMSR & ENBLC ; CN+4 IS ZERO 



Decode CCE - Set 2904 Mc bit 

Method is to use Load Machine Status Register with 
Carry Invert. Since the state of Cn+4 is known to be zero, 
a load with carry invert will set the 2904 Mc bit. 



00031 



ASCLACCE: JP 

/ 

/ 

/ 
/ 



ASCONT & AM2901 , CAB.RAMF.AND, ZB 
& SPFNOP 
& SPHNOP 
& CARRYL 
& LODMSRCI & ENBLC ; CN+4 IS ZERO 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 

413 
414 

415 
416 
417 
418 
419 
420 
421 
422 

423 
424 

425 
426 
427 

428 
429 
430 
431 
432 

433 
434 
435 
436 
437 

438 



00032 



00033 



00034 



00035 



00036 



00037 



ASCMACCE: JP 

/ 
/ 
/ 
/ 

ASCCACCE: JP 

/ 

/ 

/ 

/ 

ASNOPCCE: JP 
/ 

/ 
/ 

/ 



ASCONT & AM2901 , CAB, RAMF, SUBS, ZB 
& SPFNOP 
& SPHNOP 
4 CARRYL 
& LODMSRCI 4 ENBLC ; CN+4 IS ZERO 

ASCONT & AM2901 CAB, CAB, RAMF, SUBS, AB 
4 SPFNOP 
4 SPHNOP 
& CARRYL 
& LODMSRCI 4 ENBLC ; CN+4 IS ZERO 

ASCONT & AM2901 , CAB, NOP, ADD, ZB 
& SPFNOP 
& SPHNOP 
& CARRYL 
4 LODMSRCI 4 ENBLC ; CN+4 IS ZERO 



Decode CME - Invert 2904 Mc bit 

Method is to use Load Machine Status Register with 
Carry Invert, while asserting ENVE to gate current state 
of Mc into Ic. If Cn+4 is zero, then Mc is complemented. 



00038 



ASCLACME: JP 

/ 

/ 

/ 



ASCMACME: JP 
/ 

/ 

/ 



ASCCACME: JP 

/ 

/ 

/ 



ASNOPCME: JP 

/ 

/ 

/ 



ASCONT 4 AM2901 , CAB, RAMF, AND, ZB 
& SPFNOP 
& CARRYL 

& LODMSRCI 4 ENBLC 4 ENVE ; CN+4 

IS ZERO 

ASCONT & AM2901 , CAB, RAMF, SUBS, ZB 
& SPFNOP 
4 CARRYL 

& LODMSRCI 4 ENBLC 4 ENVE ; CN+4 

IS ZERO 

ASCONT 4 AM2901 CAB, CAB, RAMF, SUBS, AB 
4 SPFNOP 
4 CARRYL 

4 LODMSRCI 4 ENBLC 4 ENVE ; CN+4 

IS ZERO 

ASCONT 4 AM2901 ,CAB,NOP,ADD, ZB 
4 SPFNOP 
4 CARRYL 

4 LODMSRCI 4 ENBLC 4 ENVE ; CN+4 

IS ZERO 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



STATEMENT 



440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 
476 
477 
478 
479 
480 
481 
482 

483 
484 

485 
486 
487 



00039 



0003A 



0003B 



• « 



Shift Rotate Group 



» 
* 
* 



* Specials: 

« 



* The initial instruction decode jumps to the SRG0 entry * 

* points. * 

* * 

« 

» 

* SRG1 - Maps bottom 6 bits of IR to control store address* 
» - Decodes CLE, SL», and NOP * 

* - If no CLE or SL*, then SRG1 same as SRG2 * 
« * 

* SRG2 - Maps bottom 6 bits of IR to control store address* 

* - Decodes second Shift/Rotate operation: * 

* ALS,ARS,RAL,RAR,ALR,ERA,ELA,ALF,ELAD,ERAD * 

* - NOP goes directly to fetch line * 
» » 

SRG NOP 
- NO FIRST SHIFT/ROTATE OPERATION 



SRG0N0P: JMAP 

/ 

/ 

/ 



& AM2901 , , NOP, PASS, ZQ 

4 SPFNOP 

& SPHNOP 

& JTAB SRG1; 



ARITH LEFT SHIFT 

- SET SIGN AND LEFT SHIFT 

- LEFT SHIFT AGAIN 

- RIGHT SHIFT WITH SIGN 



SRG0ALS: 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 

/ 



CONT 



CONT 



JMAP 



& AM2901 , CAB, SRAML, PASS, ZB 

& LOCMSR 

& SPFNOP 

& SPHNOP 

& SHIFT B 0010 ; 

& AM2901 , CAB, SRAML, PASS, ZB 

& SPFNOP 

& SPHNOP 

& SHIFT B 0010 ; 

& AM2901 ,CAB,SRAMR,PASS,ZB 

& SPFNOP 

& SPHNOP 
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LINE 



ADDR 



STATEMENT 



488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 

503 
504 
505 
506 
507 
508 
509 
510 
511 
512 

513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 



0003C 



/ 

/ 



& J TAB SRG1 
& SHIFT B 0101 



0003D 



0003E 



0003F 



00040 



00041 



ARITH RIGHT SHIFT 

- SET SIGN 

- RIGHT SHIFT WITH SIGN 



SRGOARS: 


CONT 


& AM2901 , CAB, NOP, PASS, ZB 


/ 




& LODMSR 


/ 




& SPFNOP 


/ 




& SPHNOP ; 




JMAP 


& AM2901 , CAB, SRAMR, PASS, ZB 


/ 




& SPFNOP 


/ 




& SPHNOP 


/ 




& JTAB SRG1 


/ 


ROTATE LEFT 


& SHIFT B 0101 ; 


SRGORAL: 


JMAP 


& AM2901 , CAB, SRAML, PASS, ZB 


/ 




& SPFNOP 


/ 




& SPHNOP 


/ 




& JTAB SRG1 


/ 


ROTATE RIGHT 


& SHIFT ROTATE ; 


SRGORAR: 


JMAP 


& AM2901 , CAB, SRAMR, PASS, ZB 


/ 




& SPFNOP 


/ 




& SPHNOP 


/ 




& JTAB SRG1 


/ 




& SHIFT ROTATE ; 



LEFT SHIFT ONE, CLEAR SIGN 

- MASK OFF BIT 14 AND 15 

- SHIFT LEFT NORMAL 



00042 



SRGOALR: 

/ 

/ 

/ 
/ 
/ 
/ 



CONT 



JMAP 



& AM2901 , ,QREG,PASS,DZ 

& SPHNOP 

& IMM H 3FFF ; 

& AM2901 CAB, CAB, SRAML, AND, AQ 

4 SPFNOP 

& SPHNOP 

& JTAB SRG1 

& SHIFT B 0010 : 



D-20 



A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

536 

537 
538 
539 
540 
541 
542 
543 
544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 



ADDR 



STATEMENT 



00043 



00044 



00045 



00046 



00047 



t 

SRGOERA: 

/ 

/ 

/ 

/ 



ROTATE RIGHT WITH E 
JMAP 



& AM2901 , CAB, SRAMR, PASS, ZB 

& SPFNOP 

& SPHNOP 

& JTAB SRG1 

& SHIFT ROTATEC ; 



ROTATE LEFT WITH E 



SRGOELA: JMAP 

/ 

/ 

/ 

/ 



& AM2901 , CAB, SRAML, PASS, ZB 

& SPFNOP 

& SPHNOP 

& JTAB SRG1 

& SHIFT ROTATEC ; 



ROTATE LEFT 4 
- LOAD EXTERNAL ROTATE BY 4 REG AND THEN READ IT BACK 



SRGOALF : JMAP 

/ 

/ 

/ 



& AM2901 CAB,CAB,RAMA,PASS,DZ 
& SPHNOP 
& JTAB SRG1 
& L4D ; 



COPY SIGN INTO E 
- SAME AS ROTATE LEFT WITH E EXCEPT SCRATCH DESTINATION 



SRGOELAD: JMAP 
/ 

/ 
/ 
/ 



& AM2901 CAB, R4, SRAML, PASS, ZA 

& SPFNOP 

& SPHNOP 

& JTAB SRG1 

& SHIFT ROTATEC ; 



COPY LSB INTO E 
- SAME AS ROTATE RIGHT WITH E EXCEPT SCRATCH DESTINATION 



SRGOERAD: JMAP 

/ 

/ 

/ 

/ 



& AM2901 CAB, R4, SRAMR, PASS, Z A 

& SPFNOP 

& SPHNOP 

& JTAB SRG1 

& SHIFT ROTATEC ; 
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LINE 



ADDR 



STATEMENT 



581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 
616 
617 
618 
619 
620 
621 
622 

623 
624 
625 
626 
627 
628 
629 



PERFORM SRG CLE/SL» OPERATION 



00048 



00049 



0004A 



0004B 



0004C 



0004D 



0004E 



0004F 



00050 



JMAP 



SR1CLE: 
/ 

/ 
/ 

/ 



SR1SL: LDCT 

/ 
/ 

/ 



JRP SRGSKIP 



SR1CLESL: LDCT 

/ 

/ 

/ 

/ 



JRP SRGSKIP 



/ 
/ 

/ 

SRGSKIP: 

/ 
/ 
/ 

/ 



JMAP 



& AM2901 ,, NOP, PASS, ZQ 

& SPFNOP 

& SPHNOP 

& RSTMSR & ENBLC 

& JTAB SRG2; 

& AM2901 , CAB, NOP, PASS, ZB 

& SPFNOP 

& SPHNOP 

& JTAB SRG2 ; 

& AM2901 ,, NOP, PASS, ZQ 

& SPFNOP 

& SPHNOP 

& CONDEXT IRSKIP ; 

& AM2901 , CAB, NOP, PASS, ZB 

& SPFNOP 

& SPHNOP 

& RSTMSR & ENBLC 

& JTAB SRG2 ; 

& AM2901 ,, NOP, PASS, ZQ 

& SPFNOP 

& SPHNOP 

& CONDEXT IRSKIP ; 

& AM2901 PC, PC, RAMA, ADD, ZB 
& CARRYH 
& JTAB SRG2 
& SPFNOP 
& LDMAR; 



PERFORM SECOND SRG OPERATION 



SRG2N0P: JZ 

/ 

/ 

SRG2ALS: CONT 

/ 

/ 

/ 

/ 



& AM2901 
& SPHNOP 
IFETCH 
AM2901 
LODMSR 
SPFNOP 
SPHNOP 



& 
& 
& 
& 
& 



,, NOP, PASS, ZQ 



, CAB, SRAML, PASS, ZB 



/ 
/ 
/ 



CONT 



JZ 



& SHIFT B 0010 ; 

& AM2901 , CAB, SRAML, PASS, ZB 

& SPHNOP 

& IFETCH 

& SHIFT B 0010 ; 

& AM2901 , CAB, SRAMR, PASS, ZB 

& SPFNOP 
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A600 BASESET MICROCODE (06/14/82 *A) 



INE 


ADDR 


STATEMENT 


630 




/ 


631 


00051 


/ 


632 




SRG2ARS: 


633 




/ 


634 




/ 


635 


00052 


/ 


636 






637 




/ 


638 




/ 


639 


00053 


/ 


640 




SRG2RAL: 


641 




/ 


642 




/ 


643 


00054 


/ 


644 




SRG2RAR: 


645 




/ 


646 




/ 


647 


00055 


/ 


648 




SRG2ALR: 


649 




/ 


650 


00056 


/ 


651 






652 




/ 


653 




/ 


654 


00057 


/ 


655 




SRG2ERA: 


656 




/ 


657 




/ 


658 


00058 


/ 


659 




SRG2ELA: 


660 




/ 


661 




/ 


662 


00059 


/ 


663 




SRG2ALF: 


664 




/ 


665 


000 5A 


/ 


666 






667 




/ 


668 


0005B 


/ 


669 




SRG2ELAD: 


670 




/ 


671 




/ 


672 


0005C 


/ 


673 




SRG2ERAD: 


674 




/ 


675 




/ 


676 


0005D 


/ 



CONT 



JZ 



JZ 



JZ 



CONT 



JZ 



JZ 



JZ 



CONT 



JZ 



JZ 



JZ 



& SPHNOP 








& SHIFT B 


0101 ; 






& AM2901 


,CAB,N0P,PASS,ZB 




& LODMSR 








& SPHNOP 








& IF ETCH 


* 
t 






& AM2901 


.CAB.SRAMR, 


PASS, 


ZB 


& SPFNOP 








& SPHNOP 








& SHIFT 


B 0101 ; 






& AM2901 


.CAB.SRAML, 


PASS, 


ZB 


& IF ETCH 








& SPHNOP 








& SHIFT ROTATE ; 






& AM2901 


, CAB.SRAMR, 


,PASS, 


ZB 


& SPHNOP 








& IF ETCH 








& SHIFT ROTATE ; 






& AM2901 


, ,QREG,PASS,DZ 




& SPHNOP 








& IMM H 3FFF ; 






& AM2901 


CAB, CAB.SRAML, AND, AQ 


& SPHNOP 








& IF ETCH 








& SHIFT B 0010 ; 






& AM2901 


.CAB.SRAMR 


.PASS, 


,ZB 


& SPHNOP 








& IFETCH 








& SHIFT ROTATEC ; 






& AM2901 


.CAB.SRAML 


.PASS, 


,ZB 


& SPHNOP 








& IFETCH 








& SHIFT l 


SOTATEC ; 






& AM2901, 


, .NOP, PASS, 


ZQ 





& SPHNOP 

& IFETCH ; 

& AM2901 CAB, CAB, RAMA, PASS, DZ 

& SPHNOP 

& L4D ; 

& AM2901 CAB, R4.SRAML, PASS, ZA 

& SPHNOP 

& IFETCH 

& SHIFT ROTATEC ; 

& AM2901 CAB, R4.SRAMR, PASS, ZA 

& SPHNOP 

& IFETCH 

& SHIFT ROTATEC : 
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LINE 

678 

679 
680 
681 
682 
683 
684 
685 
686 

687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 

715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 



ADDR 



0005E 



0005F 
00060 



00061 



00062 



00063 



00064 



STATEMENT 

» * 

* Extended Arithmetic Register Group • 

• * 

» » 

»»*»»*»«*»»«»**«*»«*»***»»**t**»«»«»«**»»**«*»««»**««*««***» 



ASL: 

/ 
/ 



JL. 
/ 

/ 



00065 



/ 
/ 



ASR: 

/ 

/ 

/ 

/ 
/ 
/ 

/ 

/ 
/ 

/ 
/ 
/ 



LSL: 

/ 

/ 
/ 



ARITH SHIFT LEFT 
JP ASLCONT 

JUMP AND LOAD A/B 
CALL WRTIND 



& AM2901 , , NOP, PASS, ZQ 

& SPFNOP 

& SPHNOP ; JUMP TO ACTUAL CODE 



JP 



SKIP 



& AM2901 PC,CAB,RAMF,PASS,ZA 

& MREAD 

& SPHNOP ; A/B := PC 

4 AM2901 ,PC,RAMF,PASS,ZQ 

& SPFNOP 

& SPHNOP ; 



ARITH SHIFT RIGHT 



CONT 



PUSH 



RFCT 



JZ 



& AM2901 , B, NOP, PASS, ZB 

& SPFNOP 

& SPHNOP 

& LODMSR ; SET SIGN 

& AM2901 .A.QREG.PASS.ZB 

& SPHNOP 

& IF ETCH 

& JTAB IR0T3 5 

& AM2901 ,B,SRAMQR,PASS,ZB 

& SPFNOP 

& SPHNOP 

& SHIFT B 0101 ; 

& AM2901 ,A,RAMF,PASS,ZQ 

& SPFNOP 

& SPHNOP 

& RSTMSR & ENBLO ; CLEAR OVERFLOW 



LOGICAL SHIFT LEFT 
PUSH 



RFCT 



& AM2901 , A.QREG.PASS.ZB 

& SPHNOP 

& IF ETCH 

& JTAB IR0T3 ; 

& AM2901 .B.SRAMQL.PASS.ZB 
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INE 


ADDR 


STATEMENT 






726 




/ 




& SPFNOP 


727 




/ 




4 SPHNOP 


728 


00066 


/ 




& SHIFT B 0110 ; 


729 






JZ 


& AM2901 ,A,RAMF,PASS,ZQ 


730 




/ 




& SPFNOP 


731 


00067 


/ 




4 SPHNOP ; 


732 










733 






LOGICAL SHIFT 


RIGHT 


734 










735 




LSR: 


PUSH 


4 AM2901 ,A,QREG,PASS,ZB 


736 




/ 




& SPHNOP 


737 




/ 




& IF ETCH 


738 


00068 


/ 




& JTAB IR0T3 5 


739 






RFCT 


4 AM2901 ,B,SRAMQR,PASS,ZB 


740 




/ 




& SPFNOP 


741 




/ 




& SPHNOP 


742 


00069 


/ 




& SHIFT B 0110 ; 


743 






JZ 


& AM2901 ,A,RAMF,PASS,ZQ 


744 




/ 




4 SPFNOP 


745 


0006A 


/ 




4 SPHNOP ; 


746 










747 






ROTATE LEFT 




748 










749 




RRL: 


PUSH 


& AM2901 ,A,QREG,PASS,ZB 


750 




/ 




4 SPHNOP 


751 




/ 




& IFETCH 


752 


0006B 


/ 




& JTAB IR0T3? 


753 






RFCT 


& AM2901 ,B,SRAMQL,PASS,ZB 


754 




/ 




& SPFNOP 


755 




/ 




& SPHNOP 


756 


0006C 


/ 




& SHIFT B 1111 ; 


757 






JZ 


4 AM2901 ,A,RAMF,PASS,ZQ 


758 




/ 




4 SPFNOP 


759 


0006D 


/ 




4 SPHNOP ; 


760 










761 






ROTATE RIGHT 




762 










763 




RRR: 


PUSH 


4 AM2901 ,A,QREG,PASS,ZB 


764 




/ 




4 SPHNOP 


765 




/ 




4 IFETCH 


766 


0006E 


/ 




4 JTAB IR0T3? 


767 






RFCT 


4 AM2901 ,B,SRAMQR,PASS,ZB 


768 




/ 




4 SPFNOP 


769 




/ 




4 SPHNOP 


770 


0006F 


/ 




4 SHIFT B 1111 ; 


771 






JZ 


4 AM2901 ,A,RAMF,PASS,ZQ 


772 




/ 




4 SPFNOP 


773 


00070 


/ 




4 SPHNOP ; 



D-25 



A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

775 

776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 

791 
792 

793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 



ADDR 



STATEMENT 



00071 

00072 
00073 

00074 
00075 

00076 
00077 

00078 
00079 



Extended Arithmetic Group 



opcode word 
D/I | addr word 



» 

* 
« 
» 
* 
* 
» 



CALL DLOAD 



DLD: 
/ 

/ 

/ 
/ 



DST: 

/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 

/ 



JZ 

FILLER 
FILLER 
FILLER 
CALL WRTIND 

CONT 

CONT 

JP SKIP 



& AM2901 , , NOP, PASS, ZQ 

& SPHNOP 

& MREAD; LOAD A AND B 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& IFETCH ; NEXT INSTRUCTION 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; GET ADDR WORD 

4 AM2901 A, TAB, NOP, PASS, ZA 

& LDMDOR 

& MWRITE ; STORE A 

& AM2901 ,,QREG,ADD,ZQ 

& CARRYH 

& SPFNOP 

& LDMAR ; GEN B ADDRESS 

& AM2901 B, TAB, NOP, PASS, ZA 

& LDMDOR 

& MWRITE ; STORE B 



811 
812 

813 
814 
815 
816 
817 



0007A 



DIVIDE ENTRY POINT 



DIVENT: JP DIVD & AM2901 , ,N0P,PASS, ZQ 

/ & SPHNOP 

/ & SPFNOP ; JUMP TO ACTUAL CODE 
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INE 


ADDR STATEMENT 




818 




»****«****«»»****»*»*»**«*«*»****»»***»*****»»*««*»**»****•» 


819 




* 




* 


820 




* 




MULTIPLY - 2'S COMPLEMENT SIGNED * 


821 




* 




* 


822 




* 


- 


MPY SPECIAL IN SOURCE FIELD CHANGES SOURCE SELECT * 


823 




* 




FROM AB TO ZB BASED ON QO. * 


824 




* 




« 


825 




**«****««»**»«*ft»«»*»**»ft***0**»M»»»»*«»*«*»«ft******»«»**ft 


826 










827 


MULT: 


CALL WRTIND & AM2901 ,, NOP, PASS, ZQ 


828 


/ 


1 




& SPHNOP 


829 


0007B 


1 




& MREAD ; FETCH ADDR WORD 


830 








CONT & AM2901 TAB,, QREG, PASS, DZ 


831 




1 




& SPFNOP 


832 


0007C 


1 




& SPHNOP ; MULTIPLIER TO QR 


833 










834 








Zero B Reg and shift Q right one bit. This 


835 






puts QO into QOBUF FLIP-FLOP for Multiply step. 


836 






Note: 


In next line, CARRYL is used to force a zero 


837 








into sign of B Reg during shift. Also, shift 


838 








opcode is same as value loaded into counter!!!!! 


839 










840 








PUSH H 00E & AM2901 , B.SRAMQR.AND, ZB 


841 




/ 




& CARRYL 


842 




/ 




& SHIFT B 1110 


843 




/ 




& SPFNOP 


844 


0007D 


/ 




& SPHNOP ; B:=0; QOBUF :=Q0; COUNTE 


845 








RFCT & AM2901 MPY, B.SRAMQR.ADD, AB 


846 




/ 




& CARRYL 


847 




/ 




& SPFNOP 


848 




/ 




& SPHNOP 


849 


0007E 


/ 




& SHIFT B 1110 ; MULTIPLY STEP 


850 








CONT & AM2901 MPY, B.SRAMQR.SUBR.AB 


851 




/ 




& CARRYL 


852 




/ 




& SHIFT B 1110 


853 




/ 




& SPHNOP 


854 


0007F 


/ 




& SPFNOP ; 


855 








JP SKIP & AM2901 ,A,RAMF,PASS,ZQ 


856 




/ 




& SPFNOP 


857 




/ 




& SPHNOP 


858 


00080 


/ 




& RSTMSR & ENBLO; 
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LINE 

860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 

879 
880 
881 
882 

883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 



ADDR 



STATEMENT 
****»»**«*«*«ft»»0«*»««***tt»»**«»*«»ftft«»«0**««**«»«»»«*tt*ff 



00081 



00082 



00083 



00084 



00085 



00086 



Input - Output Group 



* 
* 
* 
* 
« 
* 
* 
« 
* 
« 
» 
* 

•****»»«»*****«*»»«»«»*»»«*»»»«**X*»«*»tt***«»*»««*«*»«*»**»* 

HLT - All select codes 



4 AM2901 , ,QREG,PASS,ZQ 

4 SPHNOP 

& SPFNOP ; JUMP TO ACTUAL CODE 



« 
* 

» 

« 

- In the FETCH line, I/O instructions are mapped into * 
two groups: select code >= 200 and < 200. * 

» 

- Instructions with select codes less than 20 are * 
mapped a second time. * 

* 

- All HLT instructions are mapped to same entry point * 



HLT: 


JP 


HLT0 


/ 




)<el 


/ 








Selec 


t Code >= 


IOGGE20: 


CJP 


GENMPV 


/ 






/ 






/ 








CALL 


REFETCH 


/ 






/ 








CALL 


IOHSHAKE 


/ 






/ 








CALL 


IODECODE 


/ 






/ 








JP 


IONOP 


/ 






/ 






/ 







4 AM2901 ,, NOP, PASS, ZQ 

& CONDEXT MPEN 

4 SPHNOP 

4 SPFNOP ; IF MEM PROT ENABLED 

4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; REFETCH INSTRUCTION 

4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; GET I/O CONTROL WORD 

4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; DECODE I/O CONTROL WORD 

4 AM2901 PC, PC, RAMA, ADD, ZB 

4 CARRYH 

4 LDMAR 

4 SPFNOP ; 
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LINE 



ADDR 



STATEMENT 



901 
902 

903 
904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 
944 

945 
946 
947 
948 
949 



00087 



00088 
00089 
0008A 

000 8B 
0008C 
0008D 



* » 

* Select Code < 20 I/O Instructions * 

» * 

* I0GLT20 - I/O GROUP, SC < 20 ENTRY POINT * 

* » 

* -Basic Flow is to remap instruction a second time and * 

* call routine to perform function. A call is used so * 

* TDI can be asserted at end of instruction, before next * 
» instruction is fetched. * 

* * 

*ft«****««»»*«»***»«*ft**M**«*****«***K**««»*«****»**ft«ft«»*** 



IOGLT20: CONT 
/ 

/ 



& AM2901 R12,R12,RAMF,AND,DA 
& IMM H 003F 



& SPHN0P 



MASK OFF SELECT CODE 



LDCT I0N0P 



/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 

/ 

/ 

I0GLT20V: CALL 

/ 

/ 

/ 

IONOP: CONT 

/ 

/ 

/ 

/ 



CJP I0GLT20V 



CJP GENMPV 



& AM2901 ,R12,N0P,SUBR,ZB 

& CARRYH 

& LODUSR 

& SPHNOP 

& SPFNOP ; ZERO IMPLIES SC=01 

& AM2901 , , NOP, PASS, ZQ 

& CONDUSR Z 

& SPHNOP 



& SPFNOP 



IF SC == 1 



JZ 



& AM2901 ,, NOP, PASS, ZQ 

& CONDEXT MPEN 

& SPHNOP 

& SPFNOP ; IF MEM PROTECT ENABLED 

& AM2901 ,, NOP, PASS, ZQ 

& SPFNOP 

& SPHNOP 

& JTAB LOWSC ; DECODE LOW SC BITS 

& AM2901 , , NOP, PASS, ZQ 

& ENCN SETTDI 

& SPFNOP ; SET TEMP INT DISABLE 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 



& IF ETCH 



FETCH NEXT INSTRUCTION 



0008E 



CLCOO: 
/ 

/ 



Select Code 00 I/O Instructions 
CLC 00 - System Reset (CRS-) 
CONT 



& AM2901 ,,QREG,PASS,DZ 

& STRD 

& ENCN ICRS ; GENERATE CRS- 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 

963 
964 

965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 



ADDR 



STATEMENT 



0008F 
00090 



00091 
00092 



00093 
00094 



00095 
00096 



STFOO: 

/ 

/ 

/ 
/ 



Set STATUS reg as follows: 

- TBG off 

- Int Inhibit off 

- Glogal Reg Flag disabled 

- Int Sys off 

CONT 4 AM2901 , ,QREG, AND.DQ 

& IMM H FFE4 

& LDST ; ZERO BITS IN STATUS REG 
JP CLC06 & AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP JRESET TBG (HARDWARE BUG) 

STF 00 - Enable Interrrupt System 

CONT & AM2901 , .QREG.PASS.DZ 

& SPHNOP 

& STRD ; ENABLE INTERRUPTS 
RET & AM2901 ,,NOP,OR,DQ 

& IMM H 0001 

& LDST ; 



CLF 00 - Disable Interrupt System 
NOTE: This routine used by SFS 00, C and SFC 00, C 



CLFOO: 

/ 

/ 

/ 
/ 



CONT & AM2901 , ,QREG, PASS.DZ 

& SPHNOP 

& STRD ; DISABLE INTERRUPTS 
RET & AM2901 , .NOP.NOTRS.DQ 

& IMM H 0001 

& LDST ; 

SFS 00, C - Skip if interrupt system enabled and 
disable interrupt system 



00097 



SFSOO.C: 
/ 

/ 

/ 
/ 



sfsoo: 
/ 

/ 



CALL CLFOO 



JP 



SFSOO. 1 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; RECORD AND CLEAR BIT 

& AM2901 , , NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; 



SFS 00 - Skip if interrupt system enabled 



CONT 



& AM2901 ,, QREG.PASS.DZ 

& STRD 

& SPHNOP ; SKIP IF ENABLED 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

999 
1000 
1001 
1002 
1003 
1004 

1005 
1006 

1007 
1008 
1009 
1010 
1011 
1012 
1013 

1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 

1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 



ADDR 



00098 



00099 



0009A 



0009B 



0009C 



0009D 



0009E 



0009F 



OOOAO 



STATEMENT 

SFS00.1: 

/ 

/ 

/ 

SFSXX: 

/ 

/ 

/ 



CONT 



JRP IOSKIP 



4 AM2901 ,,NOP,AND,DQ 

& LODUSR 

& SPHNOP 

& IMM H 0001; 

& AM2901 ,, NOP, PASS, ZQ 

& CONDUSR NZ 

& SPHNOP 

& SPFNOP ; 



SFC 00, C - Skip if interrupt system disabled and 
disable interrupt system 



000A1 



SFCOO.C: 

/ 

/ 



/ 
/ 



SFCOO: 

/ 

/ 

SFCOO. 1; 

/ 

/ 

/ 

sfcxx: 
/ 
/ 
/ 



OT.OO: 

/ 

/ 

/ 
/ 



STO: 
/ 
/ 
/ 



CALL CLFOO 



JP 



SFCOO. 1 



& AM2901 , , NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; RECORD STATE OF BIT AND 

CLEAR I 
& AM2901 ,, NOP, PASS, ZQ 
& SPHNOP 
& SPFNOP ; 



SFC 00 - Skip if interrupt system disabled 
CONT 



CONT 



JRP IOSKIP 



& AM2901 ,,QREG,PASS,DZ 

& STRD 

& SPHNOP ; SKIP IF DISABLED 

& AM2901 ,,NOP,AND,DQ 

& LODUSR 

& SPHNOP 

& IMM H 0001 

& AM2901 ,, NOP, PASS, ZQ 

& CONDUSR Z 

& SPHNOP 

& SPFNOP ; 



OT. 00 - Output to interrupt mask register 

CONT & AM2901 , CAB, NOP, PASS, ZB 

& SPWR LDIM1 

& SPFNOP ; LOAD TBG INTRPT MASK BI 
JP 0T.02H & AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; JUST LIKE OTA/B 02 

Select code 01 I/O instructions 

JZ & AM2901 ,, NOP, PASS, ZQ 

& IF ETCH 
& SPHNOP 
& SETMSR & ENBLO ; SET OVERFLOW 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 

1055 
1056 
1057 
1058 

1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 

1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 



ADDR 



O0OA2 



000A3 



000A4 



000A5 



000A6 



000A7 
000A8 
000A9 



STATEMENT 

CLO: 
/ 
/ 
/ 

soc.h: 
/ 
/ 
/ 

sos.h: 
/ 

/ 
/ 

soc.c: 

/ 

/ 

/ 

/ 

SOS.C: 

/ 

/ 

/ 

/ 



JZ 4 AM2901 ,, NOP, PASS, ZQ 

4 IFETCH 

& SPHNOP 

& RSTMSR & ENBLO ; CLEAR OVERFLOW 
JRP SKIP & AM2901 ,, NOP, PASS, ZQ 

4 SPFNOP 

4 SPHNOP 

4 CONDMSR NOVR ; SKIP IF OVERFLOW 
CLEAR 
JRP SKIP & AM2901 ,, NOP, PASS, ZQ 

4 SPFNOP 

& SPHNOP 

4 CONEMSR OVR ;SKIP IF OVERFLOW 
SET 
JRP SKIP & AM2901 ,,NOP,ADD,ZQ 

& SPFNOP 

4 SPHNOP 

4 CARRYL 

4 CONDLMSR NOVR 4 ENBLO ; 
JRP SKIP 4 AM2901 ,,NOP,ADD,ZQ 

4 SPFNOP 

4 SPHNOP 

4 CARRYL 

4 CONDLMSR OVR 4 ENBLO ; 



NOTE: 



0T.01: 

/ 

/ 

li. 01: 

/ 

/ 

MI. 01: 

/ 

/ 



OUTPUT TO LED REG 

THE LED'S ON A600 ARE HIGH TRUE: 

LED ON => 1 WRITTEN TO BIT IN REG 



JZ 



RET 



RET 



4 AM2901 ,CAB,NOP,EXNOR,ZB 

4 SPWR LEDWR 

4 IFETCH ; OUTPUT TO LED REG 

4 AM2901 , CAB, RAMF, PASS, DZ 

4 SPRD SWRD 

4 SPHNOP ; INPUT FROM SWITCH REG 

4 AM2901 CAB, CAB, RAMF, OR, DA 

4 SPRD SWRD 

4 SPHNOP ; 



Select Code 02 I/O Instructions 



STC 02 - ENABLE BREAK FEATURE (NOT LIKE L-SERIES) 



STC02: 
/ 



CALL REFETCH 



4 AM2901 ,, NOP, PASS, ZQ 
4 SPHNOP 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 



ADDR 
000AA 

OOOAB 



OOOAC 



OOOAD 



OOOAE 



OOOAF 



OOOBO 



000B1 



000B2 



000B3 



000B4 



STATEMENT 

/ 

/ 
/ 
/ 



& SPFNOP ; REFETCH INSTRUCTION 
JP IONOP & AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYH 
& LDMAR 
& SPFNOP ; 

STF 02 - DISABLE GLOBAL REG 



STF02: 
/ 

/ 

/ 
/ 
IOSKIP: 

/ 

/ 
/ 



CLF02: 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



SFS02: 

/ 

/ 



CALL REFETCH 



CONT 



JP 



IONOP 



& AM2901 ,,QREG,PASS,DZ 

& SPHNOP 

& STRD ; REFETCH STF INSTRUTION 

& AM2901 ,,NOP,NOTRS,DQ 

& IMM H 0002 

& LDST ; CLEAR GLOBAL REG BIT 

& AM2901 PC , PC, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 

& SPFNOP ; SET MAR FOR FETCH INST 



CLF 02 - ENABLE GLOBAL REG 



CALL REFETCH 



CONT 



RET 



/ 
/ 

/ 



SFC02: 

/ 

/ 



& AM2901 ,,QREG,PASS,DZ 

& SPHNOP 

& STRD ; REFETCH CLF INSTRUCTION 

& AM2901 ,,NOP,OR,DQ 

& IMM H 0002 

& LDST ; SET GLOBAL REG BIT 

& AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 

& SPFNOP ; NEXT INSTRUCTION 



SFS 02 - SKIP IF GLOBAL REG DISABLED 

CONT & AM2901 , ,QREG,PASS,DZ 

& IMM H 0002 

& SPHNOP ; TEST GLOBAL REG BIT 
JP SFCXX & AM2901 ,,NOP,AND,DQ 

& LODUSR 

4 SPHNOP 

& STRD ; 

SFC 02 - SKIP IF GLOBAL REG ENABLED 



CONT 



JP 



SFSXX 



/ 



& AM2901 ,,QREG,PASS,DZ 

& IMM H 0002 

& SPHNOP ; TEST GLOBAL REG BIT 

& AM2901 ,,NOP,AND,DQ 

& LODUSR 
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A600 BASESET MICROCODE (06/1 V82 «A) 



LINE 

1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 

1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 

1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 

1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 



ADDR 



000B5 



000B6 

000B7 
000B8 
000B9 
OOOBA 

OOOBB 



OOOBC 



OOOBD 



OOOBE 



OOOBF 



STATEMENT 

/ 

/ 



& STRD 

& SPHNOP ; 

OT* 02 - OUTPUT TO GLOBAL REGISTER 

OT.02H - SIMPLY OUTPUT TO GR 

0T.02C - OUTPUT TO GR AND CLEAR FLAG (ENABLE) 



0T.02C: 

/ 

/ 

/ 

/ 

0T.02H: 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 



STC04: 

/ 
/ 

/ 
/ 

CLC04: 

/ 
/ 

/ 

/ 



CONT 



CONT 



CALL REFETCH 



CALL IOHSHAKE 



CALL I0HSHAK2 



JP 



IONOP 



& AM2901 , ,QREG,PASS,DZ 

& SPHNOP 

& STRD ; READ STATUS REG 

& AM2901 ,,NOP,OR,DQ 

& IMM H 0002 

& LDST ; 

& AM2901 , , NOP, PASS , ZQ 

& SPHNOP 

& SPFNOP ; REFETCH OT* 

& AM2901 , , NOP, PASS, ZQ 

& SPFNOP 

& SPHNOP ; HANDSHAKE I/O CHIP 

& AM2901 , CAB , NOP, PASS, ZB 

& LDMDOR 

& IOWR ; 

& AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 

& SPFNOP ; FETCH NEXT INSTRUCTION 



Select Code 04 I/O Instructions 
CONT 



RET 



CONT 



RET 



& AM2901 ,,QREG,PASS,DZ 

& SPHNOP 

& STRD ; INTERRUPT UNINHIBIT 

& AM2901 ,,NOP,NOTRS,DQ 

& IMM H 0008 

& LDST ; 

& AM2901 ,,QREG,PASS,DZ 

& SPHNOP 

& STRD ; INTERRUPT INHIBIT 

& AM2901 ,,N0P,0R,DQ 

& IMM H 0008 

& LDST ; 



SFS 04 - Skip if power not going down 
- Status bit is reverse sense! 



SFS04: 
/ 



CONT 



& AM2901 ,,QREG,PASS,DZ 
& IMM H 0080 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 
1230 
1231 
1232 

1233 
1234 

1235 
1236 
1237 



ADDR 
OOOCO 

000C1 



000C2 



000C3 



000C4 
000C5 

000C6 
000C7 



000C8 



000C9 



STATEMENT 

/ 

/ 
/ 
/ 



OOOCA 



SFC04: 

/ 
/ 

/ 
/ 

/ 



0T.04: 

/ 

/ 

/ 
/ 

LI. 04: 
/ 

/ 

/ 
/ 



STC05: 
/ 

/ 



CLC05: 
/ 

/ 



STF05: 

/ 

/ 



& SPHNOP ; PONI BIT 

JP SFCXX & AM2901 t ,NOP,AND,DQ 
& LODUSR 
4 SPHNOP 
& STRD ; MASK WITH STATUS REG 

SFC 04 - Skip if power going down 

- Status bit is reverse sense! 

CONT & AM2901 , ,QREG, PASS.DZ 

& IMM H 0080 

4 SPHNOP ; PFW BIT 

JP SFSXX 4 AM2901 , t NOP,AND,DQ 

& LODUSR 

4 SPHNOP 

4 STRD ; MASK WITH STATUS REG 

SC 04 - Central Interrupt Reg I/O Instructions 

CALL SETCIR 4 AM2901 CAB,R6,RAMF,PASS,ZA 

4 SPHNOP 

4 SPFNOP; PUT SC INTO R6 
RET 4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; 



CALL READCIR 



RET 



4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; 

4 AM2901 R6, CAB, RAMF, PASS, ZA 

4 SPHNOP 

4 SPFNOP ; 



Select Code 05 I/O Instructions 



RET 



RET 



CONT 



RET 



4 AM2901 ,, NOP, PASS, DZ 
4 SPFNOP 

4 ENCN SETPSFF ; ENABLE PARITY 

SYSTEM 

4 AM2901 ,, NOP, PASS, DZ 
4 SPFNOP 

4 ENCN CLRPSFF ; DISABLE PARITY 

SYSTEM 

4 AM2901 ,,QREG,PASS,DZ 

4 SPHNOP 

4 STRD ; SET EVEN PARITY SENSE (1) 

4 AM2901 ,,NOP,OR,DQ 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 


ADDR 


STATEMENT 


1238 




/ 


1239 


OOOCB 


/ 


1240 




• 
• 


1241 




CLF05: 


1242 




/ 


1243 


OOOCC 


/ 


1244 






1245 




/ 


1246 


OOOCD 


/ 


1247 




• 
t 


1248 




SFS05: 


1249 




/ 


1250 


OOOCE 


/ 


1251 






1252 




/ 


1253 




/ 


1254 


OOOCF 


/ 


1255 




• 
1 


1256 




SFC05: 


1257 




/ 


1258 


OOODO 


/ 


1259 






1260 




/ 


1261 




/ 


1262 


000D1 


/ 


1263 




■ 

f 


1264 




LIA05H : 


1265 




/ 


1266 


000D2 


/ 


1267 






1268 




/ 


1269 


000D3 


/ 


1270 




• 
t 


1271 




LIA05C: 


1272 




/ 


1273 


000D4 


/ 


1274 






1275 




/ 


1276 


000D5 


/ 



& IMM H 0004 
4 LDST ; 

CONT & AM2901 , ,QREG,PASS,DZ 

4 SPHNOP 

& STRD ; SET ODD PARITY SENSE (0) 
RET & AM2901 , ,NOP,NOTRS,DQ 

& IMM H 0004 

& LDST ; 

CONT 4 AM2901 , ,QREG,PASS,DZ 

4 IMM H 0004 

4 SPHNOP ; SKIP IF PARITY SENSE 
EVEN 
JP SFSXX 4 AM2901 , ,NOP,AND,DQ 

4 LODUSR 

4 SPHNOP 

4 STRD ; 

CONT 4 AM2901 , ,QREG,PASS,DZ 

4 IMM H 0004 

4 SPHNOP ;SKIP IF PARITY SENSE ODD 

JP SFCXX 4 AM2901 , ,NOP,AND,DQ 

4 LODUSR 

4 STRD 

4 SPHNOP ; 

CONT 4 AM2901 , CAB, RAMF, PASS, DZ 

4 SPRD PELENL 

4 SPHNOP ; LOAD PARITY LOW ORDER 
REG 
RET 4 AM2901 CAB, CAB, RAMF, EXOR, DA 

4 IMM H FCOO 

4 SPHNOP ; INVERT HIGH BYTE 

CONT 4 AM2901 , CAB, RAMF, EXNOR.DZ 

4 SPRD PELENH 

4 SPHNOP ; LOAD PARITY HIGH ORDER 
REG 
RET 4 AM2901 CAB, CAB, RAMF, AND, DA 

4 IMM H OOFF 

4 SPHNOP ; MASK OFF BITS 16-24 OF 
ADDR 



1277 
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LINE 

1278 
1279 
1280 
1281 
1282 

1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 

1305 
1306 
1307 
1308 

1309 
1310 

1311 
1312 
1313 
1314 
1315 
1316 

1317 
1318 

1319 
1320 
1321 
1322 

1323 
1324 
1325 
1326 



ADDR 



STATEMENT 



000D6 



000D7 



000D8 



O00D9 



000DA 



OOODB 



OOODC 



OOODD 



STC06: 
/ 

/ 

/ 
/ 



Select Code 06 I/O Instructions 

STC 06 - Turn on TBG 

CONT 



RET 



& AM2901 , ,QREG,PASS,DZ 

& SPHNOP 

& STRD ; READ STATUS REG 

& AM2901 ,,NOP,OR,DQ 

& IMM H 0010 

& LDST ; SET BIT 



CLC 06 - Turn off TBG (same as CLC 06, C) 
CLC 06, C - Turn off TBG and clear flag 



CLC06: 
/ 

/ 



PUSH H 003 



& AM2901 ,,QREG,PASS,DZ 

& SPHNOP 

& STRD ; READ STATUS REG 



THE FOLLOWING INSTRUCTION WAITS FOR TBG INTERRUPT 
FLIP-FLOP TO CLEAR. THIS IS A HARDWARE BUG. WE MUST 
WAIT FOUR CLOCKS AFTER TURNING OFF THE TBG TO BE SURE 
WE ACTUALLY CLEAR THE TBG INTERRUPT FF WHEN WE EXECUTE 
THE CLF06 INSTRUCTION. 



RFCT 



/ 
/ 



CLF06: 

/ 

/ 



STF06: 

/ 

/ 



SFS06: 
/ 

/ 

/ 
/ 

/ 



4 AM2901 ,,NOP,NOTRS,DQ 

& IMM H 0010 

& LDST ; CLEAR TBG ENABLE BIT 



CLF 06 - Clear flag on TBG 
RET 



& AM2901 , , NOP, PASS, ZQ 

& SPFNOP 

& ENCN CLRTBT ; CLEAR TBG TIC FLAG 



STF 06 - Set flag on TBG 
RET 



& AM2901 ,, NOP, PASS, ZQ 

& SPFNOP 

& ENCN SETTBT ; SET TBG TIC FLAG 



SFS 06 - Skip if TBG flag set 

CONT & AM2901 , ,QREG, PASS.DZ 

& IMM H 0040 

& SPHNOP ; TBG BIT 

JP SFSXX & AM2901 ,,NOP,AND,DQ 

& LODUSR 

& STRD 

& SPHNOP ; TEST BIT 
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LINE 

1327 
1328 
1329 
1330 

1331 
1332 

1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 



ADDR 



STATEMENT 



000DE 



OOODF 



OOOEO 



SFC06: 

/ 

/ 

/ 
/ 

/ 



000E1 



STC07: 

/ 

/ 



LI. 07: 

/ 

/ 



SFC 06 - Skip if TBG flag clear 
CONT 



JP SFCXX 



& AM2901 , ,QREG,PASS,DZ 

& IMM H 0040 

& SPHNOP ; TBG BIT 

& AM2901 ,,NOP,AND,DQ 

4 LODUSR 

& STRD 

& SPHNOP ; TEST BIT 



Select Code 07 I/O Instructions 
STC 07 - Turn on Memory Protect 



RET 



4 AM2901 , ,NOP,PASS,DZ 

& ENCN SETMPEN 

& SPFNOP ; TURN ON MEMORY PROTECT 



LI. 07 - Input from Mem Prot Violation Reg 



RET 



4 AM2901 , CAB, RAMF, PASS, DZ 

4 SPRD PRLEN 

& SPHNOP ; LOAD FROM VIOLATION REG 



1352 

1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 

1363 
1364 

1365 
1366 
1367 
1368 
1369 
1370 
1371 



DLOAD - DOUBLE REG LOAD SUBROUTINE 



000E2 

000E3 
000E4 

000E5 
000E6 



DLOAD: 

/ 

/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 



CALL WRTIND 



CONT 



CONT 



CONT 



RET 



& AM2901 , , NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; RESOLVE ADDRESS 

& AM2901 ,,QREG,ADD,ZQ 

4 CARRYH 

4 LDMAR 

& SPFNOP ; INC ADDR TO SECOND WORD 

4 AM2901 TAB, A, RAMF, PASS, DZ 

4 SPHNOP 

4 MREAD ; LOAD A REG VALUE 

4 AM2901 PC, PC, RAMA, ADD, ZB 

4 CARRYH 

4 LDMAR 

4 SPFNOP ; NEXT INSTR ADDR 

4 AM2901 TAB, B, RAMF, PASS.DZ 

4 SPHNOP 

4 SPFNOP ; LOAD B REG VALUE 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 


ADDR STATEMENT 




1373 










1374 




*«**ft«»«ft*»»***»*«»#*»«*0****Oft»ftft»«»ft«*«*«*«**«ft*»**ft«*«* 


1375 




» 




» 


1376 




» 




OPERATING SYSTEM SET * 


1377 




» 




* 


1378 




» 


105300 - .CPUID - Processor Identification * 


1379 




* 


105301 - .FWID -Microcode Identification * 


1380 




* 


105302 - .WFI -Wait for Interrupt * 


1381 




* 


105303 - .SIP - Skip if Interrupt Pending * 


1382 




» 




» 


1383 




«»»»»»»»»»»»»»»»*»»«»»»#»»»»»»»»»»»»»«»»»»»»»««*»*»»»»****»» 


1384 










1385 








CPUID - LOAD A REG WITH CPU ID 


1386 










1387 




CPUID: 


CONT & AM2901 , A,RAMF,PASS,DZ 


1388 


i 


i 




& IMM CPUID 


1389 


000E7 


I 




& SPHNOP ; 


1390 








JZ & AM2901 ,,NOP,PASS,ZQ 


1391 


i 


1 




& SPHNOP 


1392 


000E8 


/ 




& IF ETCH ; 


1393 










1394 








FWID - LOAD A REG WITH MICROCODE ID 


1395 










1396 




.FWID: 


CONT & AM2901 ,A,RAMF,PASS,DZ 


1397 




/ 




& IMM MICREVID 


1398 


000E9 


/ 




& SPHNOP ; 


1399 








JZ & AM2901 ,, NOP, PASS, ZQ 


1400 




/ 




& SPHNOP 


1401 


000EA 


/ 




& IF ETCH ; 


1402 










1403 








WFI - WAIT FOR INTERRUPT 


1404 










1405 




!wFI 


* 


CJP INTERRPT & AM2901 ,, NOP, PASS, ZQ 


1406 




/ 




& CONDEXT INTRPT 


1407 




/ 




& SPHNOP 


1408 


OOOEB 


/ 




& SPFNOP ; 


1409 








JP .WFI 4 AM2901 ,, NOP, PASS, ZQ 


1410 




/ 




& SPHNOP 


1411 


OOOEC 


/ 




& SPFNOP ; 


1412 










1413 








SIP - SKIP IF INTERRUPT PENDING 


1414 










1415 




.SIP 


. 


CJP SKIP & AM2901 ,,NOP,PASS,ZQ 


1416 




/ 




& CONDEXT SINTRQ 


1417 




/ 




& SPHNOP 


1418 


OOOED 


/ 




& SPFNOP ; IF INTERRUPT PENDING 


1419 








JZ & AM2901 ,, NOP, PASS, ZQ 


1420 




/ 




& SPHNOP 


1421 


OOOEE 


/ 




& IF ETCH ; 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



STATEMENT 



1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 

1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 

1465 
1466 
1467 
1468 
1469 
1470 
1471 



OOOEF 



OOOFO 



000F1 



000F2 



000F3 



000F4 



» 

.SETP DEPOSIT (A:=A+1) TO (B:=B+1) (COUNT) TIMES, • 

WHERE (COUNT) IS 2ND WORD OF INSTRUCTION. * 

* 
********* »*»***»«»•«»**•*«***«**«»»•*»*»*«»*»»««»**»«»*««*»» 

R5 := A; SET CNTR TO 'SKIP'. 
TEST (B); START READ OF COUNT. 
CLEAR B<15>; IF IT WAS SET, 

START READ FROM (B-1) 

A := DATA READ + 1 
ELSE 

R5 := COUNT JUST READ 



.SETP: 


CALL 


WRTIND 


& AM2901 A,R5,RAMF,PASS,ZA 


/ 






4 LODMSR 


/ 






& MREAD 


/ 






& SPHNOP ; 




CALL 


SETP1 


& AM2901 B,B,RAMF,ADD,AB 


/ 






& CARRYL 


/ 






& LODUSR 


/ 






& SPFNOP 


/ 






& SPHNOP ; 




CONT 




& AM2901 ,B,NOP,SUBR,ZB 


/ 






& CARRYH 


/ 






& MREAD 


/ 






& LDMAR ; 




JP 


SETP3 


& AM2901 TAB,A,RAMF,ADD,DZ 


/ 






& CARRYH 


/ 






& MREAD 


/ 






& SPHNOP ; 


SETP1: 


CRET 




& AM2901 ,B,SRAMR,PASS,ZB 


/ 






& SHIFT B 0000 


/ 






& CONDUSR C 


/ 






& SPFNOP 


/ 






& SPHNOP ; 




JP 


SETP3 


& AM2901 TAB, R5.RAMF, PASS, DZ 


/ 






& LODMSR 


/ 






& SPFNOP 


/ 






& SPHNOP ; 



(ENTER LOOP AT BOTTOM TO HANDLE ZERO-TRIP CASE) 

MAR := B; B := B+1 

MOR := A; A := A+1 ; START WRITE; CHECK FOR INT. 
R5 := R5-1; IF PREV VALUE WAS NONZERO, LOOP. 
ELSE GOTO SKIP. 
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A600 BASESET MICROCODE (06/1 V82 »A) 



LINE 


ADDR STATEMENT 






1472 






CONT 


& AM2901 B, B, RAMA, ADD, ZB 


1473 


/ 






& CARRYH 


1474 


/ 






& LDMAR 


1475 


000F5 / 






& SPFNOP ; 


1476 






CJP SETP4 


& AM2901 A, A, RAMA, ADD, ZB 


1477 


/ 






& CARRYH 


1478 


/ 






& CONDEXT INTRPT 


1479 


/ 






4 LDMDOR 


1480 


000F6 / 






& MWRITE ; 


1481 


SETP3: 


CJP SETP2 


& AM2901 ,R5,RAMF,SUBR,ZB 


1482 


/ 






& CARRYH 


1483 


/ 


t 




& CONDLMSR NZ 


1484 


/ 


t 




& SPFNOP 


1485 


000F7 / 


f 




& SPHNOP ; 


1486 






JZ 


& AM2901 PC, PC, RAMA, ADD, ZB 


1487 


/ 




& CARRYH 


1488 


/ 




& LDMAR 


1489 


000F8 / 




& IFETCH ; NEXT INSTRUCTION 


1490 










1491 






INTERRUPT. 




1492 






B<15> := 1 




1493 






A := R5 




1494 






GOTO INTERRPT 




1495 










1496 


< 


JETP4: 


CONT 


& AM2901 B,B,RAMF,OR,DA 


1497 


; 


/ 




& IMM H 8000 


1498 


000F9 


1 




& SPHNOP ; 


1499 






JP INTERRPT 


& AM2901 R5,A,RAMF,PASS,ZA 


1500 




I 




& SPFNOP 


1501 


000FA 


1 




& SPHNOP ; 


1502 










1503 






SETP PATCH FOR 


MDOR HOLD TIME HARDWARE BUG 


1504 










1505 




3ETP2PAT: 


CJP SETP4 


& AM2901 ,A,RAMF,ADD,ZB 


1506 




/ 




& CARRYH 


1507 




/ 




& CONDEXT INTRPT 


1508 




/ 




& SPHNOP 


1509 


OOOFB 


f 




& SPFNOP ; 


1510 






JP SETP3 


& AM2901 ,, NOP, PASS, ZQ 


1511 




/ 




& SPHNOP 


1512 


OOOFC 


/ 




& SPFNOP ; 


1513 




SETP2: 


CONT 


& AM2901 B, B, RAMA, ADD, ZB 


1514 




/ 




& CARRYH 


1515 




/ 




& LDMAR 


1516 


OOOFD 


/ 




& SPFNOP ; 


1517 






JP SETP2PAT 


& AM2901 ,A,NOP,PASS,ZB 


1518 




/ 




& LDMDOR 


1519 


OOOFE 


/ 




& MWRITE ; 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 



000FF 
OOOFF 



OOOFF 



* * 

* Un implemented Instruction Entry * 
« * 

* Note: Placing entry point at H FF allows unimplemented * 

* instructions to map here since blank PROM (7649) * 

* is all ones. * 

* » 

» 

ORG H FF 



EAGUIT: JP INTUIT & AM2901 ,, NOP, PASS, ZQ 
/ & SPHNOP 

/ & SPFNOP ; 



1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 



00100 
00100 
00100 
00100 
00100 
00100 
00100 
00100 
00100 
00100 
00100 
00100 



00100 



ORG H 100 

«»**»*»****»ft*»*»ft«*ft»«««»*tt***»*»»«t«***»ft*«*»ft«»o»»*»***» 

* « 

* SKIP - All skips come here * 

* * 

* Since PC points to next instruction + 1 during » 

* instruction execution, PC already points to target * 

* of skip. « 

* » 



SKIP: 
/ 

/ 
/ 



JZ 



& AM2901 PC, PC, RAMA, ADD, ZB 
& CARRYH 
& LDMAR 
& IFETCH ; 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 


ADDR STATEMENT 






1555 










1556 




*ft»««*»»*»«»ft«»»*»**»*»**««***ftM*tt«»«*******»*«***»««ft«ft**« 


1557 




* 




* 


1558 




* 


INDIRECT Re solver * 


1559 




* 




• 


1560 




* Assumes: - Address wo 


rd read cycle started * 


1561 




» 


- Allows 3 levels of indirect * 


1562 




* 


- Last address read returned in Q reg * 


1563 




• 


- MAR loaded 


with PC-1 at exit * 


1564 




* 




* 


1565 




»**ft*««*»«»*»»***»»ft««**»*******0*tt**»ft«*«*»ft*»««**»******* 


1566 










1567 


^ 


1RGIND: 


CRET 


& AM2901 ,PC,NOP,SUBR,ZB 


1568 


t 


1 




& CONDUSR NSIGN 


1569 


i 


/ 




& CARRYH 


1570 


i 


/ 




& SPFNOP 


1571 


00101 


1 




& LDMAR; 


1572 


] 


RESOLVE: 


LDCT H 003 


& AM2901 TAB,,QREG,PASS,DZ 


1573 




/ 




& LODUSR 


1574 




/ 




& LDMAR 


1575 


00102 


/ 




& MREAD; 


1576 


I 


RESOLVE 1: 


CRET 


& AM2901 ,PC,NOP,SUBR,ZB 


1577 




/ 




& CONDUSR NSIGN 


1578 




/ 




& CARRYH 


1579 




/ 




& SPFNOP 


1580 


00103 


/ 




& LDMAR; 


1581 






RPCT RESOLVE 1 


& AM2901 TAB,, QREG, PASS, DZ 


1582 




/ 




& LODUSR 


1583 




/ 




& LDMAR 


1584 


00104 


/ 




& MREAD; 


1585 






CONT 


& AM2901 ,, NOP, PASS, ZQ 


1586 




/ 




& ENCN CLRTDI 


1587 


00105 


/ 




& SPFNOP ; CLEAR TDI 


1588 






CJPP INTERRPT 


& AM2901 ,, NOP, PASS, ZQ 


1589 




/ 




& CONDEXT INTRPT 


1590 




/ 




& SPHNOP 


1591 


00106 


/ 




& SPFNOP ; IF INTERRUPT PENDING 


1592 






JP MRGIND 


& AM2901 ,, NOP, PASS, ZQ 


1593 




/ 




& LODUSR 


1594 




/ 




& SPHNOP 


1595 


00107 


/ 




& SPFNOP ; TEST Q REG 


1596 










1597 






Write Indirect 




1598 










1599 




MWRTIND: 


CRET 


& AM2901 ,, NOP, PASS, ZQ 


1600 




/ 




& SPFNOP 


1601 




/ 




& SPHNOP 


1602 


00108 


/ 




& CONDUSR NSIGN ; MRG TYPE WRI 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 


ADDR 


STATEMENT 








1603 




WRTIND: 


LDCT 


H 003 


4 AM2901 TAB, t QREG,PASS,DZ 


1604 




/ 






& LODUSR 


1605 




/ 






& LDMAR 


1606 


00109 


/ 






4 MREAD ; 


1607 




WRTIND1: 


CRET 




& AM2901 , , NOP, PASS, ZQ 


1608 




/ 






& SPFNOP 


1609 




/ 






& SPHNOP 


1610 


001 OA 


/ 






4 CONDUSR NSIGN ; 


1611 






RPCT 


WRTIND1 


4 AM2901 TAB,, QREG, PASS, DZ 


1612 




/ 






4 LODUSR 


1613 




/ 






& LDMAR 


1614 


001 OB 


/ 






& MREAD; 


1615 






CRET 




4 AM2901 ,, NOP, PASS, ZQ 


1616 




/ 






& CONDUSR NSIGN ; 


1617 




/ 






& ENCN CLRTDI 


1618 


0010C 


/ 






4 SPFNOP ; CLEAR TDI 


1619 






CJPP 


INTERRPT 


& AM2901 , , NOP, PASS, ZQ 


1620 




/ 






4 CONDEXT INTRPT 


1621 




/ 






4 SPHNOP 


1622 


0010D 


/ 






4 SPFNOP ; IF INTERRUPT PENDING 


1623 






JP 


WRTIND 


4 AM2901 ,, NOP, PASS, ZQ 


1624 




/ 






4 SPHNOP 


1625 


0010E 


/ 






4 SPFNOP ; CONTINUE RESOLVING 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 
1628 
1629 
1630 
1631 
1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 
1674 
1675 
1676 



DOUBLE INTEGER OPERATIONS 



ADDR STATEMENT 

* 
* 
* 

All others * 

* 

JSB .OPCODE * 

DEF OPERAND 



* - Calling sequence: 

* 

* .DIN, .DDE 4 .DNG 
» JSB .OPCODE 



« 
ft 

- Operands are stored in memory with most significant * 
word in lower address, least significant word in upper * 



address: 

JSB 
DEF 



.DAD +• 
» + 



>0CT 

OCT 



MSB 

LSB 



address 
address + 



- The operations performed are: 



.DAD 
.DSB 



(A.B) 
(A.B) 



.DSBR (A,B) 
.DNG (A,B) 



« 
* 
* 
« 
» 
« 
* 
* 
* 
* 
ft 
» 
ft 
« 
ft 
« 
« 
* 
« 
* 
« 

* - E Reg can be set but NEVER cleared as follows: 

« 

set if an unsigned carryout occurs 

set if an unsigned borrow occurs 

set if an unsigned borrow occurs 

set if the (A.B) = 

set if the (A,B) = -1 

set if the (A.B) = 



.DIN 
.DDE 
.DIS 
.DDS 
.DCO 



(A,B) 
(A.B) 
(OPERAND) 
(OPERAND) 
IF (A,B) = 
IF (A.B) < 
IF (A.B) > 



(A,B) + (OPERAND) 
(A.B) - (OPERAND) 
(OPERAND) - (A.B) 
- (A.B) 
(A,B) + 1 
(A,B) - 1 

= (OPERAND) + 

= (OPERAND) - 1, 

(OPERAND) THEN PC := PC + 

(OPERAND) THEN PC := PC + 



1. 



SKIP IF ZERO 
SKIP IF ZERO 
1 
2 



(OPERAND) THEN PC 



PC + 3 



.DAD 

.DSB 

.DSBR 

.DNG 

.DIN 

.DDE 



» 
« 
* 

« 
« 

« 

* - Reg is cleared and can be set as follows: 

* 

* .DAD 

* .DSB 

* .DSBR 

* .DNG 

* .DIN 
» .DDE 



set if carry into sign XOR carry out of sign 
set if carry into sign XOR carry out of sign 
set if carry into sign XOR carry out of sign 
set if the (A,B) = 2**31 
set if the (A,B) = 2**31 - 1 
set if the (A.B) = 2**31 



« 
» 
* 
* 
» 
« 
* 
« 
ft 
« 
» 

« 
» 
ft 
* 
« 
« 
» 
« 
« 

ft 

» 

« 
« 
« 
» 
« 
» 
« 
» 
* 

* 
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LINE 

1677 
1678 
1679 
1680 
1681 
1682 

1683 
1684 

1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 

1697 
1698 
1699 
1700 
1701 
1702 

1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 

1711 
1712 

1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 



ADDR 



001 OF 



00110 



00111 



00112 



00113 



00114 



STATEMENT 
« » 

*«««ft»*«»*«»ft«*«*0»»««»*««*«»«««**»»««*»«»ft»»**«»»»»ftft**»*« 



NOTE: 



The double integer scratch register 
assignments below are also used 
floating point. 



DBLIMSB: EQU 
DBLILSB: EQU 



B 00101 
B 00110 



DOUBLE INTEGER SCRATCH REGS 





.DAD 


- DOUBLE 


ADD 


.DAD: 


CALL 


DIARG 


& AM2901 ,, NOP, PASS, ZQ 


/ 






& SPHNOP 


/ 






& SPFNOP ; GET OPERAND INTO SCRATC 




CONT 




& AM2901 DBLILSB, B.RAMF, ADD, AB 


/ 






& CARRYL 


/ 






& LODUSR 


/ 






& SPHNOP 


/ 






& SPFNOP ; ADD LOWER WORDS 




CONT 




& AM2901 DBLIMSB, A, RAMF, ADD, AB 


/ 






& CARRYREG 


/ 






& UCLDMSR & ENBLO 


/ 






& SPHNOP 


/ 






& SPFNOP ; ADD UPPER WORDS + CARRY 


.DADE: 


CJP 


FETCH 


& AM2901 PC, PC, RAMA, ADD, ZB 


/ 






& CARRYH 


/ 






& CONDUSR NC 


/ 






& LDMAR 


/ 






& IFETCH ; IF NO CARRY OUT 




JZ 




& AM2901 ,, NOP, PASS, ZQ 


/ 






& SETMSR & ENBLC 


/ 






& SPHNOP 


/ 

■ 






& SPFNOP ; SET E REG 


.DSB: 


CALL 


DIARG 


& AM2901 ,, NOP, PASS, ZQ 


/ 






& SPHNOP 


/ 






& SPFNOP ; GET OPERANDS 
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LINE 

1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 

1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 

1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 

1771 
1772 



ADDR 



00115 



00116 



00117 



00118 



00119 



001 1A 



001 IB 



001 1C 



STATEMENT 

CONT & AM2901 DBLILSB,B,RAMF,SUBR,AB 

/ & CARRYL 

/ & LODUSR 

/ & SPHNOP 

/ & SPFNOP ; B := B - LSB 

JP .DADE & AM2901 DBLIMSB,A,RAMF,SUBR,AB 

/ & CARRYREG 

/ & NUCLDMSR & ENBLO 

/ & SPHNOP 

/ & SPFNOP ;A := A - MSB - CARRY, 

LOAD OVERF 



.DSBR - DOUBLE SUBTRACT REVERSE 
- NOTE: Sense of carry is adjusted for DADE test 



.DSBR: 

/ 

/ 

/ 
/ 

/ 
/ 

/ 

/ 
/ 
/ 



CALL DIARG 



CONT 



JP 



.DADE 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

4 SPFNOP ; GET OPERAND 

& AM2901 DBLILSB,B,RAMF,SUBS,AB 

& CARRYH 

& LODUSRCI 

& SPHNOP 

& SPFNOP ; B := B - LSB 

& AM2901 DBLIMSB.A.RAMF.SUBS.AB 

& CARRYREG 

& NUCLDMSR & ENBLO 

& SPHNOP 

& SPFNOP ; A := A - MSB - CARRY 



.DNG - DOUBLE NEGATE 
.DIN - DOUBLE INCREMENT 



.DNG: 

/ 
/ 

/ 
/ 

.DIN: 

/ 

/ 
/ 
/ 

/ 



CONT 



CONT 



CONT 



CONT 



& AM2901 ,A,RAMF,EXNOR,ZB 

& SPHNOP 

& SPFNOP ; ONES COMPLEMENT A & B 

& AM2901 ,B,RAMF,EXNOR,ZB 

& SPHNOP 

& SPFNOP ; 

& AM2901 ,B,RAMF,ADD,ZB 

& CARRYH 

& LODUSR 

& SPHNOP 

& SPFNOP ; B := B + 1 

& AM2901 .A.RAMF.ADD.ZB 

& CARRYREG 
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LINE 



ADDR 



STATEMENT 



1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 



001 1D 



001 1E 



001 1F 



00120 



.DINE: 



00121 



/ 

/ 

/ 

.E 

/ 

/ 

/ 

/ 
/ 
/ 



.DDE: 

/ 
/ 
/ 

/ 

/ 

/ 
/ 
/ 



CJP FETCH 



JZ 



4 UCLDMSR & ENBLO 

4 SPHNOP 

4 IFETCH ; A := A + CARRY OUT 

& AM2901 ,, NOP, PASS, ZQ 

4 CONDUSR NC 

& SPHNOP 

& SPFNOP ; DONE IF NO CARRY 

& AM2901 ,, NOP, PASS, ZQ 

4 SETMSR & ENBLC 

& SPHNOP 

4 SPFNOP ; SET E REG 



.DDE - DOUBLE DECREMENT 

CONT 4 AM2901 , B.RAMF.SUBR.ZB 

4 CARRYH 

& LODUSR 

4 SPHNOP 

4 SPFNOP ; B := B - 1 

JP .DINE & AM2901 , A.RAMF.SUBR, ZB 

& CARRYREG 

& NUCLDMSR 4 ENBLO 

& SPHNOP 

4 IFETCH ; A := A - CARRY, UC := B 



1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 

1819 
1820 



00122 



00123 



00124 



00125 



DIS - DOUBLE INCREMENT AND SKIP IF ZERO 



.DIS: 



/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 

/ 



.DDS: 

/ 

/ 

/ 



CALL DIARG 



CONT 



JP 



.DSKIPZ 



4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

& SPFNOP ; GET OPERAND INTO SCRATC 

4 AM2901 ,DBLILSB,RAMF,ADD,ZB 

4 CARRYH 

& LODUSR 

& SPHNOP 

& SPFNOP ; INC 2ND WORD 

4 AM2901 ,DBLIMSB,RAMF,ADD,ZB 

& CARRYUC 

& SPHNOP 

& SPFNOP ; PROPOGATE CARRY 



DDS - DOUBLE DECREMENT AND SKIP IF ZERO 



CALL DIARG 



CONT 



4 AM2901 , , NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; GET OPERAND INTO SCRATC 

4 AM2901 ,DBLILSB,RAMF,SUBR,ZB 

4 CARRYH 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 


ADDR 


STATEMENT 


1821 




/ 


1822 




/ 


1823 


00126 


/ 


1824 






1825 




/ 


1826 




/ 


1827 


00127 


/ 


1828 




.DSKIPZ: 


1829 




/ 


1830 


00128 


/ 


1831 






1832 




/ 


1833 




/ 


1834 


00129 


/ 


1835 






1836 




/ 


1837 


0012A 


/ 


1838 






1839 




/ 


1840 




/ 


1841 


001 2B 


/ 


1842 






1843 




/ 


1844 




/ 


1845 


0012C 


/ 


1846 






1847 




/ 


1848 




/ 


1849 


0012D 


/ 



CONT 



CONT 



CONT 



CONT 



CONT 



CJP SKIP 



JP 



SKIP 



& LODUSRCI 

& SPHNOP 

& SPFNOP ; DEC 2ND WORD 

& AM2901 ,DBLIMSB,RAMF,SUBR,ZB 

& CARRYUC 

& SPHNOP 

& SPFNOP ; PROPOGATE BORROW 

& AM2901 DBLILSB, TAB, NOP, PASS, ZA 

& LDMDOR 

& MWRITE 

& AM2901 , .QREG.SUBR.ZQ 

& CARRYH 

& LDMAR 

& SPFNOP ; ADDR OF 1ST WORD 

& AM2901 DBLIMSB, TAB, NOP, PASS, ZA 

& LDMDOR 

& MWRITE ; WRITE 1 ST 

& AM2901 DBLIMSB, DBLILSB, NOP, OR, AB 

& LODUSR 

& SPHNOP 

& SPFNOP 

& AM2901 

& CONDUSR NZ 

& SPHNOP 

& SPFNOP ; 

& AM2901 

& CARRYH 

& SPHNOP 

& SPFNOP 



TEST FOR ZERO 
,NOP,PASS,ZQ 



; IF NOT ZERO 

,PC,RAMF,ADD,ZB 

; PC := PC + 1 
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A600 BASESET MICROCODE (06/11/82 »A) 



LINE 

1851 
1852 

1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 

1885 
1886 
1887 
1888 
1889 
1890 

1891 
1892 

1893 
1894 
1895 
1896 
1897 
1898 
1899 



ADDR 



STATEMENT 



0012E 



0012F 



00130 



00131 



00132 



00133 



.DCO - DOUBLE INTEGER ARITH COMPARE 
- Calling sequence: 



JSB 


.DCO 


DEF 


OPERAND 


JMP 


EQUAL 


JMP 


LESS THAN 


JMP 


GREATER THAN 



IF (A,B) == (OPERAND) 
IF (A,B) < (OPERAND) 
IF (A,B) > (OPERAND) 



- Both operands are considered 32 bit 2*s complement numbers 

- Algorithm is do a signed compare of upper words. If equal 
then do an unsigned compare of lower words. 



.DCO: 


CALL 


DIARG 


& AM2901 ,, NOP, PASS, ZQ 


/ 

/ 






& SPHNOP 
& SPFNOP ; 




C0NT 




& AM2901 A.DBLIMSB.NOP.SUBS.AB 


/ 






& CARRYH 


/ 






& LODUSR 


/ 






& SPHNOP 


/ 






& SPFNOP ; A : : 1ST WORD 




CJP 


.DCOEQ 


& AM2901 A,DBLIMSB,NOP,SUBS,AB 


/ 






& CARRYH 


/ 






& CONDUSR Z 


/ 






& SPHNOP 


/ 






& SPFNOP ; IF EQUAL, TEST LOWER BI 


.DCOLT: 


CJP 


SKIP 


& AM2901 ,PC,RAMF,ADD,ZB 


/ 






& CARRYH 


/ 






& CONDUSR LT 


/ 






& SPHNOP 


/ 






& SPFNOP ; IF LESS THAN 


.DCOX: 


JP 


SKIP 


& AM2901 .PC.RAMF.ADD.ZB 


/ 






& CARRYH 


/ 






& SPHNOP 


/ 






& SPFNOP ; IF GREATER THAN 




DO UNSIGNED 


COMPARE OF LOWER WORDS 


.DCOEQ: 


LDCT 


.DCOX 


& AM2901 B, DBLILSB, NOP, SUBS, AB 


/ 






& CARRYH 


/ 






& LODUSR 


/ 






& SPHNOP 


/ 






& SPFNOP ; B : : 2ND WORD 




CJP 


SKIP 


& AM2901 B,DBLILSB,NOP,SUBS,AB 


/ 






& CARRYH 


/ 






& CONDUSR Z 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 

1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 

1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 

1939 

1940 



ADDR 



00134 



00135 



00136 



00137 



STATEMENT 

/ 
/ 

/ 
/ 
/ 
/ 



& SPHNOP 

& SPFNOP ; IF EQUAL THEN EXIT 

JRP SKIP & AM2901 ,PC,RAMF,ADD,ZB 

& CARRYH 
& CONDUSR NC 
& SPHNOP 
& SPFNOP ; A BORROW MEANS LESS THA 



.CPM - SINGLE INTEGER ARITH COMPARE 
- Calling sequence: 



JSB . CPM 

MAR -> DEF OP1[,I] 

PC -> DEF 0P2[,I] 

JMP EQUAL 

JMP LESSJTHAN 

JMP GREATER THAN 



- DEF's may reference A/B 

- IF 0P1 == OP2 

- IF OP1 < OP2 

- IF OP1 > 0P2 



.CPM: 

/ 

/ 



- Both operands are considered signed 1 6 bit numbers 
CALL BITSB 



/ 

/ 
/ 
/ 



00138 



/ 
/ 
/ 
/ 



ON RETURN, R4 
LDCT .DCOLT 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; RESOLVE OPERANDS 

(OP1) AND R5 := (0P2) 

& AM2901 R4,R5, NOP, SUBS, AB 

& CARRYH 

& LODUSR 

& SPHNOP 

& SPFNOP ; COMPARE OP1 :: 0P2 



IF Z SET, THEN OP1 == 0P2 AND FETCH NEXT INST 

ELSE GOTO DOUBLE COMPARE LESS THAN TEST 

JRP SKIP & AM2901 R4.R5.NOP, SUBS, AB 
& CARRYH 
& CONDUSR Z 
& SPHNOP 
& SPFNOP ; IF EQUAL THEN SKIP 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 

1942 
1943 
1944 
1945 
1946 

1947 
1948 
1949 
1950 

1951 
1952 

1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 



ADDR 



00139 

0013A 
0013B 
0013C 



STATEMENT 

DOUBLE INTEGER UTILITIES 

DIARG - DOUBLE INTEGER ARGUMENT LOAD 
- Operand is loaded into DBLIMSB and DBLILSB reg pair 



DIARG: 

/ 

/ 

/ 
/ 

/ 

/ 
/ 

/ 

/ 



CALL WRTIND 



CONT 



CONT 



RET 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

4 MREAD ; RESOLVE OPERAND 

4 AM2901 ,,QREG,ADD,ZQ 

& CARRYH 

& LDMAR 

4 SPFNOP ; Q := LSB ADDRESS 

& AM2901 TAB, DBLIMSB, RAMF, PASS, DZ 

4 SPHNOP 

4 MREAD ; DBLIMSB := MSB 

& AM2901 TAB, DBLILSB, RAMF, PASS, DZ 

4 SPHNOP 

4 MREAD ; DBLILSB := LSB, FREEZE 



1964 

1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 

1973 
1974 

1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 

1983 
1984 

1985 
1986 
1987 
1988 
1989 



001 3D 



0013E 



001 3F 



00140 



» 

« ASL - ARITH SHIFT LEFT (!) 

« 



ASLCONT: CONT 

/ 
/ 

/ 



/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 
/ 



CONT 



PUSH 



CCALL ASLOVFL 



RFCT 



4 AM2901 ,A,QREG,PASS,ZB 

& RSTMSR 4 ENBLO 

& SPHNOP 

4 SPFNOP ; RESET OVERFLOW 

& AM2901 , B, NOP, PASS, ZB 

4 SWAPEO 

4 SPHNOP 

& SPFNOP ; 

& AM2901 .B.SRAMQL.PASS.ZB 

& SHIFT B 0110 

& JTAB IR0T3 

4 SPHNOP 

& SPFNOP ; LOAD 2910 COUNTER 

4 AM2901 , .NOP, PASS, ZQ 

& CONDEXT IRSKIP 

& SPHNOP 

4 SPFNOP ; SET OVERFLOW IF SIGN CH 

4 AM2901 , B.SRAMQL.PASS.ZB 

4 CONDMSR SIGN 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 


ADDR 


STATEMENT 




1990 




/ 




1991 




/ 




1992 


00141 


/ 




1993 






CCALL ASLOVFL 


1994 




/ 




1995 




/ 




1996 


00142 


/ 




1997 






CONT 


1998 




/ 




1999 




/ 




2000 


00143 


/ 




2001 






JZ 


2002 




/ 




2003 




/ 




2001 


00144 


/ 




2005 




f 




2006 




ASLOVFL: 


RET 


2007 




/ 




2008 


00145 


/ 





& SHIFT B 0110 

& SPHNOP 

& SPFNOP ; 2904 OUTPUT MSR 

& AM2901 ,, NOP, PASS, ZQ 

& CONDEXT IRSKIP 

& SPHNOP 

& SPFNOP ; SET OVERFLOW IF SIGN CH 

& AM2901 ,B,SRAMQR,PASS,ZB 

& SHIFT B 0101 

4 SPHNOP 

& IFETCH ; RESTORE SIGN 

4 AM2901 ,A,RAMF,PASS,ZQ 

& SWAPEO 

& SPHNOP 

4 SPFNOP ; PUT A REG BACK 

4 AM2901 ,R4,SRAML,PASS,DZ 
4 IMM H 8000 

4 SPHNOP ; SET CARRY (SHIFT 
B 0000 IMPLIE 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 

2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 

2033 
2034 

2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 

2053 
2054 
2055 
2056 
2057 
2058 



00146 



00147 



00148 



» 

DIVIDE - 1ST AND 2ND QUADRANT SIGNED DIVISOR » 

» 

- DIVIDEND IS IN MACRO B AND A REG » 

- DIVIDEND IS MADE POSITIVE * 

- DIVISOR IS TWO'S COMPLEMENT SIGNED » 

* 

- AT EACH ITERATION STEP, THE PARTIAL REMAINDER IS * 
REDUCED TOWARD ZERO BY ADD OR SUBTRACT: * 

* 

IF PARTIAL REMAINDER SIGN XOR DIVISOR SIGN == THEN SUBR* 

ELSE ADD » 
» 

- REMAINDER SIGN IS ALWAYS SAME AS DIVIDEND SIGN * 

- QOUTIENT SIGN IS DIVIDEND SIGN XOR DIVISOR SIGN • 

* 

- OVERFLOW IF DIVIDE BY ZERO LEAVES ABS(DIVIDEND) IN B&A « 

- OVERFLOW IF DIVISOR TOO SMALL LEAVES B&A UNDEFINED * 

- QUOTIENT BITS ARE GENERATED IN ONE'S COMPLEMENT FORM * 

* 



DIVD: 

/ 
/ 



CALL WRTIND 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; FETCH ADDR WORD 



PUT DIVISOR IN R5 



- SET SIGN AND ZERO IN MACHINE STATUS REG ACCORDINGLY 

- CLEAR OVERFLOW IN MACHINE STATUS REG 



CONT 



/ 
/ 
/ 
/ 



& AM2901 TAB,R5,RAMF,ADD,DZ 

& CARRYL 

4 SPHNOP 

& SPFNOP 

4 LODMSR & ENBLO ; 



SAVE SIGN OF DIVIDEND IN R6 
CONT 



/ 

/ 
/ 



& AM2901 B,R6,RAMF,PASS,ZA 
& LODUSR 
& SPFNOP 
& SPHNOP ; 



TEST FOR NEGATIVE DIVIDEND 
- PUT LOWER WORD OF DIVIDEND IN Q REG 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

2059 
2060 
2061 
2062 
2063 

2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 

2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 

2085 
2086 
2087 
2088 

2089 
2090 

2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 

2101 
2102 



ADDR 



STATEMENT 



00149 



0014A 



001 4B 



001 4C 



001 4D 



0014E 



0014F 



CJP DIVD05 



/ 

/ 
/ 



/ 

/ 
/ 
/ 

/ 
/ 
/ 



DIVD05: 

/ 

/ 

/ 



& AM2901 t A,QREG,PASS,ZB 
& SPFNOP 
& SPHNOP 

& CONDUSR NSIGN ; IF POSITIVE 

DIVIDEND 



TWO'S COMPLEMENT DIVIDEND 

CONT & AM2901 , ,QREG,SUBS, ZQ 

4 LODUSR 

& SPFNOP 

& SPHNOP 

& CARRYH ; 
CONT 4 AM2901 , B.RAMF.SUBS.ZB 

& SPFNOP 

4 SPHNOP 

& CARRYUC ; 

TEST FOR ZERO DIVISOR 
- PUT MOST SIGNIFICANT WORD OF DIVIDEND IN R4 
CJP DIVDOVFL 



/ 
/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 

» 
i 

i 



& AM2901 B,R4,RAMF,PASS,ZA 
& CONDMSR Z 
& SPHNOP 

& SPFNOP ; IF DIVISOR IS ZERO, 
OVERFLOW 



TEST FOR DIVISOR TOO SMALL (QUOTIENT >= 2«»16) 

CONT 4 AM2901 , R4, NOP, PASS, ZB 

& DIVCOND 
4 SPHNOP 

4 SPFNOP ; SET SIGN DIFF FLIP-FLOP 
4 AM2901 R5,DIV,RAMF,SUBR,AB 
4 LODUSR 
4 CARRYL 
4 SPFNOP 
4 SPHNOP ; 

4 AM2901 ,, NOP, PASS, ZQ 
4 SPFNOP 
4 SPHNOP 

4 CONDUSR NSIGN ; IF POSITIVE THEN 

OVERFL 

DIVIDE ITERATION STEP 



CONT 



CJP DIVDOVFL 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



2103 
2104 

2105 
2106 

2107 

2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 

2133 
2134 
2135 
2136 
2137 

2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 



00150 



00151 



00152 



00153 



00154 



00155 



00156 



Note: 



/ 
/ 
/ 

/ 

/ 

/ 
/ 
/ 
/ 



/ 
/ 

/ 



/ 

/ 
/ 

/ 
/ 

/ 



/ 

/ 
/ 

/ 

/ 
/ 



Shift opcode is same as value loaded into counter in 
in next line. This shift produces a bit in the 
remainder (B reg) that is discarded (see right shift 
remainder below) , so the bit shifted into the Q reg 
in the next line is a dont care. 



PUSH H OOF 


& AM2901 ,R4,SRAMQL,PASS,ZB 




& DIVCOND 




& SPFNOP 




& SPHNOP 




& SHIFT B 1111 ; SET SIGN DIFF FF 


RFCT 


4 AM2901 R5,DIV,SRAMQL,SUBR,AB 




& DIVCOND 




& CARRYL 




& SPFNOP 




& SPHNOP 



& SHIFT B 1 1 1 1 



SHIFT REMAINDER RIGHT ONE 



CONT 



& AM2901 ,R4,SRAMR,PASS,ZB 

& SPFNOP 

& SPHNOP 

& SHIFT B 1111 : SHIFT IN SIGN 



TEST FOR REMAINDER NEGATIVE 



CONT 



CJP DIVD20 



& AM2901 ,R4, NOP, PASS, ZB 

& LODUSR 

& SPFNOP 

& SPHNOP ; 

& AM2901 , R4, NOP, PASS, ZB 

& SPFNOP 

& SPHNOP 

& CONDUSR NSIGN 



IF POSITIVE THEN 
OKAY 



IF REMAINDER IS MINUS, RESTORE REMAINDER BY 
ADDING/SUBTRACTING DIVISOR. 



CONT 



CONT 



& AM2901 , R4, NOP, PASS, ZB 

& DIVCOND 

& SPFNOP 

; SET SIGN DIFF FF 
R5,DIV,RAMF,SUBR,AB 



& SPHNOP 
& AM2901 
& CARRYL 
& SPFNOP 
& SPHNOP 



RESTORE 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

2150 

2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 
2194 
2195 
2196 
2197 



ADDR 



00157 



00158 



00159 



001 5A 



001 5B 



001 5C 



0015D 



STATEMENT 



IF DIVIDEND WAS NEGATIVE, COMPLEMENT REMAINDER 

- COMPUTE EXPECTED SIGN: DIVIDEND SIGN XOR DIVISOR SIGN 

DIVD20: CONT & AM2901 , R6, NOP, PASS, ZB 

/ & LODUSR 

/ & SPHNOP 

/ & SPFNOP ; 

& AM2901 R6,R5,RAMF,EX0R,AB 

& CONDUSR NSIGN 

& SPHNOP 

& SPFNOP ; IF POSITIVE DIVIDEND 

& AM2901 ,R4,RAMF,SUBS,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; COMPLEMENT REMAINDER 



/ 

/ 
/ 

/ 
/ 
/ 



CJP DIVD25 



CONT 



IF DIVIDEND AND DIVISOR HAD DIFFERENT SIGN, 
COMPLEMENT QUOTIENT 



/ 

/ 

/ 

DIVD25: 

/ 

/ 

/ 



CONT 



CJP DIVD30 



/ 
/ 
/ 

/ 



DIVD30: 

/ 
/ 
/ 
/ 



& AM2901 , R5, NOP, PASS, ZB 

& LODUSR 

& SPFNOP 

& SPHNOP ; TEST EXPECTED SIGN 

& AM2901 R4,B,RAMF,PASS,ZA 

& SPFNOP 

& SPHNOP 

& CONDUSR SIGN ; IF DIFFERENT SIGN 



ONE'S COMPLEMENT QUOTIENT TO FORM TRUE QUOTIENT 

JP DIVD40 & AM2901 , A.RAMF.SUBS, ZQ 
& LODUSR 
& SPFNOP 
& SPHNOP 
& CARRYL ; 

CHANGE ONE'S COMPLEMENT TO TWO'S COMPLEMENT QUOTIENT 

JP DIVD40 & AM2901 , A,RAMF,ADD, ZQ 
& LODUSR 
& SPFNOP 
& SPHNOP 
& CARRYH ; 



DONE IF QUOTIENT IS ZERO 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

2198 

2199 
2200 
2201 
2202 
2203 
2204 
2205 

2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 

2217 
2218 
2219 



ADDR 



0015E 



0015F 



STATEMENT 

DIVD40: 

/ 

/ 

/ 



/ 
/ 

/ 



CJP SKIP & AM2901 A,R5,N0P,EX0R,AB 
& SPFNOP 
& SPHNOP 
& CONDUSR Z ; SET USR WITH SIGN 



CALCULATE OVERFLOW BY: 

IF DIVISOR SIGN XOR DIVIDEND SIGN XOR QUOTIENT SIGN != 
OVERFLOW 



CJP SKIP 



& AM2901 ,A,QREG,PASS,ZB 

& SPFNOP 

& SPHNOP 

& CONDUSR NSIGN ; 



DIVIDE OVERFLOW 
SET OVERFLOW AND PUT Q REG BACK IN A REG 
SKIP 



00160 



DIVDOVFL: JP 

/ 

/ 

/ 



& AM2901 ,A,RAMF,PASS,ZQ 

& SPFNOP 

& SPHNOP 

& SETMSR & ENBLO ; SET OVERFLOW 



2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 

2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 



00161 



00162 



* « 

* I/O Instruction Routines (cont) * 
« * 

HLT INSTRUCTION 

- Refetch HLT instruction. I/O master that is 
front panel will recognize HLT and start slave 
request process. 

- Wait for slave request interrupt 



HLTO: 


CJP 


GENMPV 


& AM2901 ,, NOP, PASS, ZQ 


/ 






& CONDEXT MPEN 


/ 






& SPHNOP 


/ 






& SPFNOP ; IF MEM PROTECT ENABLED 




CALL 


REFETCH 


& AM2901 ,, NOP, PASS, ZQ 


/ 




/C6 


& SPHNOP 


/ 






& SPFNOP ; REFETCH INSTRUCTION 


HLT1: 


CJP 


INTHLDPC 


& AM2901 ,, NOP, PASS, ZQ 


/ 






& CONDEXT INTRPT 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



2245 / 

2246 00163 / 
2247 

2248 / 

2249 00164 / 

2251 
2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 00165 

2271 

2272 

2273 
2274 

2275 / 

2276 / 

2277 / 

2278 00166 / 

2279 

2280 / 

2281 / 

2282 00167 / 
2283 
2284 
2285 
2286 

2287 / 

2288 / 

2289 00168 / 
2290 
2291 
2292 



JP 



HLT1 



it" 



& SPHNOP 

& SPFNOP ; IF INTRPT (SLAVE REQUES 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; WAIT FOR INTERRUPT 



* * 

* I/O Instruction Subroutines * 

* * 



REFETCH - REFETCH I/O INSTRUCTION 

ALL INSTRUCTIONS ARE FETCHED WITHOUT ASSERTING RNI 
SO I/O CHIPS DO NOT HAVE TO LOOK AT INSTRUCTIONS GOING BY. 
HOWEVER, THE I/O CHIPS MUST BE FORCED TO LOOK AT I/O 
INSTRUCTIONS. THEREFORE, ALL I/O INSTRUCTIONS ARE FETCHED 
A SECOND TIME, ASSERTING RNI. 



REFETCH: CONT 

/ 

/ 

/ 



& AM2901 PC,PC,RAMF,SUBR,DA 

& CARRYL 

& LDMAR 

& IMM H 0002 ; BACKUP PC 



TEST FOR FETCH FROM LOCATION OR 1 

CONT & AM2901 ,PC,NOP,SUBR,ZB 

& CARRYH 

& LODUSR 

& SPHNOP 

& SPFNOP ; SUBTRACT ONE 

CCALL REFETCH2 & AM2901 ,, NOP, PASS, ZQ 

& CONDUSR ULE 

& SPHNOP 

& SPFNOP ; IF PC <= 1 

NORMAL INSTRUCTION REFETCH 

PUSH H 002 & AM2901 ,PC,RAMF,ADD, ZB 
& CARRYH 
& SPHNOP 
& RFETCH ; REFETCH INSTRUCTION 

THIS IS A WAIT FOR RFETCH DURING REFRESH 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 

2293 
2294 
2295 
2296 

2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 

2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 

2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 

2331 
2332 

2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 



ADDR 

00169 
001 6A 



001 6B 



0016C 



0016D 

001 6E 
0016F 



00170 



STATEMENT 

RFCT & AM2901 , .NOP.PASS.ZQ 

/ & SPHNOP 

/ & SPFNOP ; 

RET & AM2901 ,MAPX, NOP, PASS, ZB 

/ & LDAER 

/ & SPFNOP ; 



FETCH WAS FROM A OR B 
- ASSUME INSTRUCTION ALREADY IN LOC 2 OF BOOT MEMORY 



REFETCH2: CONT 
/ 

/ 



RET 



& AM2901 , , NOP, PASS, DZ 

& LDMAR 

& IMM H 0002 ; REFETCH FROM 

LOCATION 2 
& AM2901 , , NOP, PASS, DZ 
& LDAER 
& IMM H 0020 ; IN BOOT MEMORY 



IOHSHAKE - I/O CHIP HANDSHAKE 

THIS ROUTINE HANDSHAKES A WORD FROM A I/O CHIP. 
IT WILL WAIT 6 MICROCYCLES BEFORE ABORTING THE HANDSHAKE 
AND FETCHING THE NEXT INSTRUCTION. 



IOHSHAKE: PUSH H 002 

/ 

/ 



/ 

/ 
/ 

/ 
/ 



CJPP IOHSHAK1 
171 



RFCT 



4 AM2901 ,, NOP.PASS.ZQ 

& SPHNOP 

& SPFNOP ; 

& AM2901 ,, NOP.PASS.ZQ 

& CONDEXT IORQ 

& SPHNOP 

& SPFNOP ; 

& AM2901 ,, NOP.PASS.ZQ 

& SPHNOP 

& SPFNOP ; 



NO RESPONSE FROM THE I/O CHIP 
- TREAT THIS AS A NOP 
JP IONOP 



/ 
/ 
/ 



& AM2901 PC, PC, RAMA, ADD, ZB 
& CARRYH 
& LDMAR 
& SPFNOP ; 



I/O CHIP ASSERTED IORQ 
- READ CONTROL WORD 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



STATEMENT 



2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 
2388 
2389 



00171 



00172 



00173 



00174 



00175 



IOHSHAK1: CONT & AM2901 , .NOP, PASS, ZQ 

/ 4 IORD 

/ & SPHNOP ; 

I0HSHAK2: CJP I0HSHAK2 & AM2901 ,, NOP, PASS, ZQ 



/ 

/ 
/ 



/ 
/ 



& CONDEXT IORQ 

& SPHNOP 

& SPFNOP ; WAIT FOR IORQ TO FALL 



CONTROL WORD IS NOW IN MDIR 
RET 



& AM2901 ,,QREG,PASS,DZ 

& SPHNOP 

& SPFNOP JRETURN CONTROL WORD IN Q 



IODECODE - I/O CONTROL WORD DECODE 



- ALGORITHM IS LINEAR SEARCH 



- CONTROL WORD MEANINGS: 



0000 - NOP 

0001 - LOAD P FROM DATA BUS 

0010 - LOAD A FROM DATA BUS 

0011 - LOAD B FROM DATA BUS 

0100 - SET THE OVERFLOW BIT 

0101 - CLEAR THE OVERFLOW BIT 

0110 - MERGE INTO A REG FROM DATA BUS 

0111 - INCREMENT P 

1000 - PUT STATUS REG ON DATA BUS 

1001 - ENABLE BOOT ROM 

1010 - PUT A ON DATA BUS 

1011 - PUT B ON DATA BUS 

1100 - CLEAR E REG 

1101 - SET E REG 

1110 - PUT P ON DATA BUS 

1111 - PUT P ON DATA BUS, INCREMENT P 



- NOTE: ONLY STARRED (*) OPCODES ARE GENERATED BY 
I/O MASTER 



IODECODE: PUSH H 003 

/ 

/ 

RFCT 
/ 
/ 
/ 

CONT 
/ 



& AM2901 ,R4,RAMF,PASS,DZ 

& SPFNOP 

& SPHNOP ; PUT CONTROL WORD IN R4 

& AM2901 ,R4,SRAMR,PASS,ZB 

& SHIFT B 0000 

& SPHNOP 

& SPFNOP ; POSITION IN BITS TO 3 

& AM2901 R4,R4,RAMF,AND,DA 

& LODUSR 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 


ADDR 


STATEMENT 


2390 




/ 


2391 


00176 


/ 


2392 






2393 




/ 


2394 




/ 


2395 




/ 


2396 


00177 


/ 


2397 






2398 




/ 


2399 




/ 


2400 




/ 


2401 


00178 


/ 


2402 






2403 




/ 


2404 




/ 


2405 




/ 


2406 


00179 


/ 


2407 






2408 




/ 


2409 




/ 


2410 




/ 


2411 


001 7A 


/ 


2412 






2413 




/ 


2414 




/ 


2415 




/ 


2416 


0017B 


/ 


2417 






2418 




/ 


2419 




/ 


2420 




/ 


2421 


001 7C 


/ 


2422 






2423 




/ 


2424 




/ 


2425 




/ 


2426 


0017D 


/ 


2427 






2428 




/ 


2429 




/ 


2430 




/ 


2431 


001 7E 


/ 


2432 






2433 




/ 


2434 




/ 


2435 




/ 


2436 


0017F 


/ 


2437 







CJP 



CJP 



CJP 



CJP 



CJP 



CJP 



CJP 



CJP 



CJP 



CJP 





& IMM H OOOF 




& SPHNOP ; MASK OFF CNTL HEX & 




SET Z ST 


IODCXXXX 


& AM2901 ,R4,RAMF,SUBR,ZB 




& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 0000 


IODC0001 


& AM2901 ,R4,RAMF,SUBR,ZB 


j V ' * 


& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 0001 


IODC0010 


& AM2901 ,R4,RAMF,SUBR,ZB 




& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 0010 


IODC0011 


& AM2901 ,R4,RAMF,SUBR,ZB 




& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 0011 


IODCXXXX 


& AM2901 ,R4,RAMF,SUBR,ZB 




& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 0100 


IODCXXXX 


& AM2901 ,R4,RAMF,SUBR,ZB 




& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 0101 


IODC0110 


& AM2901 ,R4,RAMF,SUBR,ZB 




& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 0110 


IODC0111 


& AM2901 ,R4,RAMF,SUBR,ZB 




& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 0111 


IODCXXXX 


& AM2901 ,R4,RAMF,SUBR,ZB 




& CONDUSR Z 




& CARRYH 




& SPHNOP 




& SPFNOP ; IF 1000 


IODC1001 


& AM2901 ,R4,RAMF,SUBR,ZB 



1*.^ 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



2438 
2439 
2440 
2441 
2442 

2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 

2463 
2464 

2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 

2473 
2474 
2475 
2476 

2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 



00180 



00181 



00182 



00183 



00184 



00185 



00186 



00187 
00188 



/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 
/ 



CJP 



CJP 



& CONDUSR Z 

& CARRYH 

& SPHNOP 

& SPFNOP ; IF 1001 

IODC1010 & AM2901 ,R4,RAMF,SUBR,ZB 

& CONDUSR Z 

& CARRYH 

& SPHNOP 

& SPFNOP ; IF 1010 

I0DC1011 4 AM2901 ,R4,RAMF,SUBR,ZB 

& CONDUSR Z 

& CARRYH 

& SPHNOP 



& SPFNOP 



IF 1011 



CJP 



CJP 



IODCXXXX & AM2901 ,R4,RAMF,SUBR,ZB 

& CONDUSR Z 

& CARRYH 

& SPHNOP 

& SPFNOP ; IF 1100 

IODCXXXX & AM2901 , R4.RAMF.SUBR, ZB 

& CONDUSR Z 

& CARRYH 

& SPHNOP 



& SPFNOP 



IF 1101 



CJP 



I0DC1110 & AM2901 ,R4,RAMF,SUBR,ZB 
'?* & CONDUSR Z 
& CARRYH 
& SPHNOP 
& SPFNOP : IF 1110 



UNDEFINED CONTROL WORD IS NOP 



IODCXXXX: RET 

/ 
/ 



& AM2901 , R4, NOP, PASS, ZB 

& SPHNOP 

& SPFNOP ; IF 1111 OR GREATER 



LOAD P FROM DATA BUS 



IODC0001: CALL IOHSHAKE 

/ 

/ 



& AM2901 ,, NOP, PASS, ZQ 
& SPHNOP 



& SPFNOP 



LOAD P FROM DATA BUS 



RET 



/ 
/ 



& AM2901 ,PC,RAMF,PASS,DZ 
& SPHNOP 
& SPFNOP ; 



LOAD A FROM DATA BUS 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 

2505 
2506 

2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 



ADDR 



00189 



0018A 



0018B 



0018C 



0018D 



001 8E 



001 8F 



STATEMENT 

IODC0010: CALL IOHSHAKE 

/ 

/ 

/ 
/ 



RET 



& AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

& SPFNOP ; LOAD A FROM DATA BUS 

4 AM2901 ,A,RAMF,PASS,DZ 

& SPHNOP 

& SPFNOP ; 



LOAD B FROM DATA BUS 



I0DC0011: CALL IOHSHAKE 
/ 

/ 



RET 



& AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

& SPFNOP ; LOAD B FROM DATA BUS 

4 AM2901 ,B,RAMF,PASS,DZ 

4 SPHNOP 

4 SPFNOP ; 



MERGE INTO A/B 
NOTE: Register is selected by IR bit 10 



IODC0110: 

/ 

/ 

/ 
/ 


CALL IOHSHAKE 
RET 

INCREMENT PC 


4 AM2901 
4 SPHNOP 
4 SPFNOP 
4 AM2901 
4 SPHNOP 
4 SPFNOP 


,, NOP, PASS, ZQ 

; MERGE INTO A/B (IR10) 
CAB.CAB.RAMF.OR.DA 

• 


IODC0111: 
/ 

/ 
/ 


RET 


4 AM2901 
4 CARRYH 
4 SPHNOP 
4 SPFNOP 


,PC,RAMF,ADD,ZB 

; INCREMENT PC 



ENABLE BOOT ROM 

- In addition to setting the BOOT enable bit, the following 
operations must be done: 

* Format WMAP 

* Turn off memory protect 

* Enable boot memory 

* Store WMAP into location 100Q of boot memory 

* Assert TDI 30 no interrupt before VCP start up 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

2530 

2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 

2553 
2554 
2555 
2556 
2557 
2558 

2559 
2560 
2561 
2562 
2563 
2564 

2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 



ADDR 

00190 

00191 
00192 

00193 
00194 
00195 



00196 
00197 



00198 
00199 



0019A 
001 9B 



STATEMENT 

IODC1001: 

/ 

/ 

/ 
/ 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



CALL STWMAP 



CONT 



CONT 



CONT 



CONT 



RET 



& AM2901 , , NOP, PASS, ZQ 

4 SPHNOP 

& SPFNOP ; FORMAT WMAP 

4 AM2901 ,, NOP, PASS, ZQ 

4 ENCN CLRMPEN 

4 SPFNOP ; TURN OFF MEMORY PROT 

4 AM2901 MAPX,MAPX,RAMF,OR,DA 

4 IMM H 0020 

4 LDAER ; ENABLE BOOT ROM 

4 AM2901 , , NOP, PASS, DZ 

4 LDMAR 

4 IMM H 0040 ; LOCATION 100Q 

4 AM2901 , R4, NOP, PASS, ZB 

4 LEMDOR 

4 MWRITE ; 

4 AM2901 , , NOP, PASS, ZQ 

4 ENCN SETTDI 

4 SPFNOP ; ASSERT TDI 



IODC1010: 

/ 

/ 

/ 
/ 



IODC1011: 

/ 

/ 

/ 

/ 



I0DC1110: 

/ 
/ 

/ 
/ 



PLACE A REG ON DATA BUS 
CALL I0HSHAK2 



RET 



4 AM2901 A, A, RAMA, PASS, ZB 

4 LEMDOR 

4 IOWR ; PLACE A ON DATA BUS 

4 AM2901 , , NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; 



PUCE B ON DATA BUS 
CALL I0HSHAK2 



RET 



4 AM2901 B, B, RAMA, PASS, ZB 

4 LEMDOR 

4 IOWR ; PLACE B ON DATA BUS 

4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; 



PUCE PC ON DATA BUS 
CALL 



RET 



IOHSHAK2 4 AM2901 PC, PC, RAMA, PASS, ZB 
'7 2- 4 LEMDOR 

4 IOWR ; PLACE PC ON DATA BUS 
4 AM2901 ,, NOP, PASS, ZQ 
4 SPHNOP 
4 SPFNOP : 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2591 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 



ADDR 



0019C 
001 9D 



001 9E 



0019F 



001A0 



001A1 



001A2 



STATEMENT 



*»«*»»«»«»»»******»ft**»*««*««*«*»«o»*«ft»**«*««*»»*««««*««** 

« * 

• Interrupt Handler * 

. • 

• - Since PC points to next instruction + 1, back up PC * 

• * 

**0«ft«»»ft»ft**»»»ft**ft**ft«****»»**«************************** 



INTERRPT: CONT 

/ 

/ 

/ 

INTHLDPC: CVECT INTTBL 

/ 

/ 



& AM2901 PC,PC,RAMF,SUBR,DA 

& CARRYL 

& SPHNOP 

& IMM H 0002 ; BACKUP PC 

4 AM2901 , .NOP, PASS, ZQ 

& SPHNOP 

& MKLROFF ; 



POWER ON INTERRUPT 

SELF-TEST MICROCODE 

- A PATTERN OF ALL ONES WITH A SINGLE ZERO BIT IS 
ROTATED THRU ALL DATA BUS BITS. 



INTPON: 

/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 
/ 



CONT 



PUSH 



CONT 



LOOP 



CJP LASTWD 



& AM2901 B.B.RAMF.EXNOR.AB 

& SPHNOP 

& SPFNOP ; B := H FFFF 

& AM2901 B,A,RAMF,SUBR,ZA 

& CARRYH 

& ENCN SETDTST 

& SPFNOP ; A := H FFFE 

& AM2901 ,A,SRAML,PASS,ZB 

& SHIFT ROTATE 

& LODMSR 

& LDMDOR 

& SPFNOP ; WRITE PATTERN IN A 

& AM2901 B,B,RAMA,EXNOR,DA 

& CONDLMSR NSIGN 

& LDMAR 

& SPFNOP JBUILD CHECK PATTERN IN B 

& AM2901 ,A,RAMF,AND,ZB 

& CARRYH 

& CONDLMSR Z & ENBLC 

& SPHNOP 

& SPFNOP ; IF B = THEN PASS 



SELF-TEST FAILURE 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 

2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 

2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 



ADDR 



STATEMENT 



001A3 
001A4 



001A5 
001A6 
001A7 
001A8 



001A9 



001AA 



INTDEAD: 
/ 

/ 
/ 

/ 
/ 



MAPX 
MAPD 
PC 
LEDS 



INTPONOK: 
/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



CONT 



JP 



INTDEAD 



& AM2901 ,A,SRAML,PASS,ZB 

& SHIFT ROTATEC 

& LDMDOR 

& SPFNOP ; GENERATE PATTERN 

& AM2901 A,A,RAMA,PASS,ZA 

& SPHNOP 

4 SPFNOP ; LOOP ON PATTERN 



INIT REGISTERS 



POINTS TO BOOT MEMORY 

POINTS TO MAP ZERO AND MAP ZERO 

POINTS TO LOCATION 20002Q IN BOOT MEMORY 

RESULT OF SELF-TEST 



/ 
/ 

/ 
/ 
/ 



CONT 



CONT 



CONT 



CONT 



4 AM2901 ,, NOP, PASS, ZQ 

4 ENCN CLRDTST 

4 SPFNOP ; TURN OFF DATA BUS LOOPB 

4 AM2901 ,, NOP, PASS, DZ 

4 IMM H 0020 

4 LDST ; INIT PROCESSOR STATUS R 

4 AM2901 B, MAPD, RAMA, AND, ZB 

4 SPWR LEDWR 

4 MKLRON ; INIT DATA 1 TO ZERO 

4 AM2901 ,PC,RAMF,PASS,DZ 

4 SPHNOP 

4 IMM H 2002 ; INIT PC TO 20002Q 



INIT MAPS 



- ALL 

EX: 



MAP REGS ARE INITIALIZED TO THEIR OWN NUMBER 
MAP0000 := 0; 
MAP0O01 := 1; 



MAP 1023 := 1023; 



CONT 



PUSH H 01F 



4 AM2901 ,R5,RAMF,AND,ZB 

4 SPHNOP 

4 SPFNOP ; INIT MAP REG CONTENTS 

4 AM2901 ,R4,RAMF,AND,ZB 

4 LODMSR 

4 SPHNOP 

4 SPFNOP ;2910 := NUMBER OF MAP SE 



THE FOLLOWING CPUSH NEVER LOADS THE COUNTER 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 


ADDR STATEMENT 


2670 






2671 


/ 




2672 


/ 




2673 


/ 


* 


2674 


001AB / 




2675 






2676 


/ 


t 


2677 


/ 


i 


2678 


/ 


r 


2679 


001AC / 


t 


2680 






2681 


/ 


r 


2682 


/ 


' 


2683 


/ 


I 


2684 


001AD / 


1 


2685 






2686 


/ 


2687 


001AE / 


1 


2688 






2689 


/ 


2690 


001AF / 


i 


2691 






2692 






2693 






2694 






2695 


/ 


1 


2696 


i 


1 


2697 


001B0 j 


1 


2698 






2699 






2700 






2701 




; Method 


2702 






2703 






2704 






2705 






2706 






2707 






2708 






2709 


: 


iNTFTCH: 


2710 


i 


t 


2711 


001B1 


i 


2712 






2713 




l 


2714 


001B2 


I 


2715 






2716 




i 



CPUSH 



CONT 



LOOP 



RFCT 



CONT 



4 AM2901 R4.R4, RAMA, ADD, ZA 

& CARRYH 

& CONDMSR NZ 

4 SPFNOP 

& LDAER ; LOAD AER WITH MAP NUMBE 

4 AM2901 R4,R4,RAMA,ADD,DA 

& CARRYL 

& LODUSR 

& LDMAR 

4 IMM H 0400 ; LOAD MAR WITH MAP 

REG NUMBER 
& AM2901 R5, R5, RAMA, ADD, ZB 
& CARRYH 
& CONDUSR SIGN 
& SPWR MAPWR 

& SPFNOP ; WRITE TO MAP REG 
& AM2901 R4,R4,RAMF,AND,DA 
& SPHNOP 

& IMM H 001F ; ZERO MAP REG NUMBER 
4 AM2901 ,MAPX,RAMF,PASS,DZ 
& LDAER 
& IMM H 0020 ; SET MAPX TO BOOT 

MEMORY 



FETCH FIRST INSTRUCTION 

JZ 4 AM2901 PC, PC, RAMA, ADD, ZB 

4 CARRYH 
4 LDMAR 
4 IF ETCH ; 

A/B Instruction Fetch Interrupt 

: Interrupt is generated when a MAR contains 
zero or one and IFETCH is asserted. This 
condition is latched for the source special. 
The assumption is made that no read or fetch 
is done before the interrupt is detected. 
After interrupt vectoring, the appropriate 
register is written to BOOT memory and refetched. 



CONT 



CONT 



CONT 



4 AM2901 ,, NOP, PASS, DZ 

4 IMM H 0020 

4 LDAER ; ENABLE BOOT MEMORY 

4 AM2901 ,, NOP, PASS, DZ 

4 IMM H 0002 

4 LDMAR ; LOC 2 IN BOOT MEMORY 

4 AM2901 TAB,, NOP, PASS, DZ 

4 LDMDOR 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 


ADDR 


STATEMENT 




2717 


001B3 


/ 




& MWRITE ; WRITE INST TO LOC 2 


2718 






CONT 


& AM2901 ,PC,RAMF,ADD,ZB 


2719 




/ 




& CARRYH 


2720 




/ 




& SPHNOP 


2721 


001B4 


/ 




& IFETCH ; REFETCH INST 


2722 






JZ 


& AM2901 ,MAPX, NOP, PASS, ZB 


2723 




/ 




& LDAER 


2724 


001B5 


/ 




& MKLRON ; PUT EXEC MAP BACK IN 
ADR EXT 


2725 










2726 






PARITY ERROR 


INTERRUPT 


2727 










2728 




INTPARTY 


: CONT 


& AM2901 ,, NOP, PASS, ZQ 


2729 




/ 




& ENCN CLRPEI 


2730 


001B6 


/ 




& SPFNOP ; CLEAR ERROR 


2731 






CALL SETMAPS 


& AM2901 ,, NOP, PASS, ZQ 


2732 




/ 




& SPHNOP 


2733 


001B7 


/ 




& SPFNOP ; SET DMS MAPS FOR INTERR 


2734 






CONT 


& AM2901 ,R6,RAMF,PASS,DZ 


2735 




/ 




& IMM H 0005 


2736 


001B8 


/ 




& LDMAR ; FETCH FROM LOCATION 5 


2737 






CONT 


& AM2901 ,, NOP, PASS, ZQ 


2738 




/ 




& ENCN CLRMPI 


2739 


001B9 


/ 




& IFETCH ; CLEAR POSSIBLE MEM PROT 


2740 




INTEXIT: 


CALL SETCIR 


& AM2901 , , NOP, PASS, ZQ 


2741 




/ 




& MKLRON 


2742 


001BA 


/ 




& SPHNOP ; PUT SC IN HIGH BYTE 


2743 






CONT 


& AM2901 , , NOP, PASS, ZQ 


2744 




/ 




& ENCN SETTDI 


2745 


001BB 


/ 




& SPFNOP ; TEMP INTERPT DISABLE 


2746 










2747 






DECODE INSTRUCTION 


2748 










2749 




; NOTE: 


TRAP CELL MUST 
JMP) 


CONTAIN A 1 WORD INSTRUCTION (JSB OR 


2750 




• 
t 






2751 






LDCT 


& AM2901 ,R12,RAMF,PASS,DZ 


2752 




/ 




& SETMSR 


2753 




/ 




& JTAB LVLO 


2754 




/ 




& IRMRG 


2755 


001BC 


/ 




& LDMAR ; FORCE A 2910 FAIL COND 


2756 






JRP $ 


& AM2901 R12,PC,RAMA,ADD,ZB 


2757 




/ 




& CONDMSR NSIGN 


2758 




/ 




& CARRYH 


2759 




/ 




& LDMAR 


2760 


001BD 


/ 




& SPFNOP ; MAP INST, MAR := MRG AD 


2761 










2762 






TBG INTERRUPT 


2763 
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LINE 

2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 

2783 
2784 

2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 

2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 

2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 



ADDR 

001BE 
001BF 
001C0 
001C1 



001C2 



001C3 



001C4 



001C5 



001C6 
001C7 
001C8 

001C9 

001CA 



STATEMENT 

INTTBG: 
/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



INTIO: 

/ 

/ 

/ 

/ 

/ 
/ 

/ 

/ 



CALL SETMAPS 



CONT 



CONT 



JP 



INTEXIT 



I/O INTERRUPT 
CALL SETMAPS 

CONT 

CONT 



JP 



INTEXIT 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; 

4 AM2901 ,, NOP, PASS, ZQ 

& ENCN CLRTBT 

& SPFNOP ; CLEAR TBG INT 

& AM2901 ,R6,RAMF,PASS,DZ 

& IMM H 0006 

& LDMAR ; FETCH FROM LOC 6 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& IF ETCH ; 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MIAK ; ACKNOWLEDGE I/O INTRPT 

& AM2901 ,R6,RAMF,PASS,DZ 

& SPRD ECIRRD 

& SPHNOP ; READ I/O SELECT CODE 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP : 



SLAVE REQUEST PSEUDO-INTERRUPT 
- Simply handshake I/O control words. 



INTSLRQ: • CONT 

/ 

/ 

INTSLRQL: CALL IOHSHAKE 



/ 

/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 



li>2> 



CALL IODECODE 



CONT 



CJP 



INTSLRQL 

i C 7 



& AM2901 , .NOP, PASS, ZQ 

& SPRD SLACK 

& SPHNOP ; SLAVE ACK 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; 

& AM2901 ,R6,RAMF,PASS,DZ 

& SPHNOP 

& SPFNOP ; SAVE CONTROL WORD IN R6 

& AM2901 R6,R6,RAMF,AND,DA 

& LODUSR 

& IMM H 0100 

& SPHNOP ; TEST LOOP BIT 

& AM2901 ,, NOP, PASS, ZQ 

& CONDUSR NZ 

& SPHNOP 

& SPFNOP ; IF LOOP BIT WAS SET 
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LINE 

2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 

2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 



ADDR 



STATEMENT 



001CB 



001CC 



001CD 



001CE 



001CF 



001D0 



001D1 



001D2 



001D3 



001D4 
001D5 
001D6 



/ 
/ 
/ 



INTUIT: 

/ 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



INTPROT: 

/ 

/ 

/ 
/ 

/ 
/ 

/ 

/ 



INTPFW: 

/ 
/ 

/ 
/ 

/ 
/ 



JP IONOP & AM2901 PC, PC, RAMA, ADD, ZB 
& CARRYH 
& LDMAR 
& SPFNOP ; GET NEXT INSTRUCTION 

UNIMPLEMENTED INSTRUCTION TRAP 

CJP INTERRPT 4 AM2901 ,, NOP, PASS, ZQ 
& CONDEXT QPEI 
& SPHNOP 

& SPFNOP ; IF PENDING PARITY ERROR 
& AM2901 ,, NOP, PASS, ZQ 
& SPHNOP 
& MKLROFF ; 

& AM2901 ,R6,RAMF,PASS,DZ 
& IMM H 0008 

& LDMAR ; FETCH FROM LOCATION 8 
& AM2901 ,PC,RAMF,SUBR,ZB 
& CARRYH 
& SPHNOP 
& IFETCH ; MAKE PC -> UIT LOC + 1 

MEMORY PROTECT INTERRUPT 

CONT 



CALL SETMAPS 



CONT 



JP 



INTEXIT 



CALL SETMAPS 



CONT 



JP 



INTEXIT 



& AM2901 ,, NOP, PASS, ZQ 

& ENCN CLRMPI 

& SPFNOP ; CLEAR PROTECT VIOLATION 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; SETUP MAPS FOR INTRPT 

& AM2901 ,R6,RAMF,PASS,DZ 

& IMM H 0007 

& LDMAR ; FETCH FROM LOC 7 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& IFETCH ; WRAPUP INTERRUPT 



POWER FAIL WARNING INTERRUPT 
CALL SETMAPS 



CONT 



CALL CLC04 



CONT 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

4 SPFNOP ; 

& AM2901 ,, NOP, PASS, ZQ 

& ENCN CLRPFWI 

& SPFNOP ; CLEAR PFW INDICATOR 

& AM2901 , , NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; INHIBIT INTERRUPTS 

& AM2901 ,R6,RAMF,PASS,DZ 
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LINE 

2862 

2863 
2864 

2865 
2866 
2867 

2869 
2870 
2871 
2872 

2873 
2874 

2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 

2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 

2903 
2904 

2905 
2906 
2907 
2908 
2909 
2910 



ADDR 



001 D7 



001D8 
001D9 



001 DA 
001DB 
001DC 
001DD 
001DE 
001DF 



001E0 
001E1 
001E2 
001E3 



STATEMENT 

/ 

/ 



JP 



/ 
/ 



& IMM H 0004 

& LDMAR ; FETCH FROM LOC 4 
INTEXIT & AM2901 , , NOP, PASS, ZQ 
& SPHNOP 
& IFETCH ; WRAPUP INTERRUPT 



FILLER 

SET MAPS FOR INTERRUPT HANDLING 

- Save current working map set in IMAP 

- Note: DATA1 set to EXEC before interrupt 



SETMAPS : 

/ 

/ 

/ 
/ 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



CALL STWMAP 



CONT 



CONT 



CONT 



CONT 



RET 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; R4 := WMAP 

& AM2901 ,, NOP, PASS, DZ 

& LDAER 

& IMM H 0020 ; ENABLE BOOT MEMORY 

& AM2901 ,, NOP, PASS, DZ 

& LDMAR 

& IMM IMAPLOC ; ADDRESS OF IMAP 

& AM2901 MAPX,MAPD,RAMF,PASS,ZA 

& ENCN CLRMPEN 

& SPFNOP ; CLEAR MEM PROTECT 

& AM2901 , R4, NOP, PASS, ZB 

& LDMDOR 

& MWRITE ; STORE WMAP INTO IMAP LO 

& AM2901 MAPX,MAPX,RAMF,AND,DA 

& LDAER 

& IMM H FF20 ; MAPX : = MAP 



SET CENTRAL INTERRUPT REGISTER 
- VALUE FOR CIR IS PASSED IN BITS 0-7 OF R6 



SETCIR: 

/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 



CONT 



CALL BYTESWAP 



CONT 



RET 



& AM2901 R6,R6,RAMF,AND,DA 

& IMM H 003F 

& SPHNOP ; MASK OFF SC (6 BITS) 

& AM2901 ,R6, NOP, PASS, ZB 

& SPHNOP 

& SPFNOP ; PUT SC IN UPPER BYTE 

& AM2901 MAPX, MAPX, RAMF, AND, DA 

& IMM H OOFF 

& SPHNOP ; MASK OUT SC FROM MAPX 

& AM2901 R6, MAPX, RAMF, OR, AB 

& SPHNOP 

& SPFNOP ; PUT SC INTO MAPX 



D-72 



A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 

2953 
2954 

2955 
2956 
2957 
2958 
2959 
2960 



ADDR 



STATEMENT 



001E4 
001E5 
001E6 
001E7 

001E8 



001E9 



001EA 



* 
DFER/CFER/ZFER/XFER. * 

»»«*»**«***»ft*»Ott«***»»****«*****«»»ft«**»*ft**»«*«*»ft****** 



DCZFER: 

/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 

/ 

/ 
/ 



001EB 



.XFER: 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



READ 1ST DEF & RESOLVE; Q:=ADDR 

R5 := Q; MAR:=PC 

READ 2ND DEF & RESOLVE; Q:=ADDR. 

B := R5 

A := Q 

PC 



PC +2 
CALL WRTIND 

CALL WRTIND 

CONT 

CONT 



& AM2901 , , NOP, PASS, ZQ 

& MREAD 

& SPHNOP ; 

& AM2901 PC, R5, RAMA, PASS, ZQ 

& MREAD 

& LEMAR ; 

& AM2901 R5,B,RAMF,PASS,ZA 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,A,RAMF,PASS,ZQ 

& SPFNOP 

& SPHNOP ; 

& AM2901 PC.PC.RAMF.ADD.DA 

& CARRYL 

& IMM H 0002 

& SPHNOP ; 



CNTR := COUNT-1, DECODED FROM INSTRUCTION. 
READ FROM (A); A:=A+1 
MAR:=B; B:=B+1 
WRITE DATA JUST READ. 
LOOP FOR (CNTR-1) TIMES. 



CONT 



PUSH 



CONT 



CONT 



& AM2901 ,, NOP, PASS, ZQ 

& JTAB WORDCNT 

& SPFNOP 

& SPHNOP ; 

& AM2901 A, A, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 

& MREAD ; 

& AM2901 B, B, RAMA, ADD, ZB 

& CARRYH 

& RSTMSR 

& LDMAR 

& SPFNOP ; 
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LINE 

2961 
2962 
2963 
2964 

2965 
2966 

2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2981 
2982 



ADDR 



STATEMENT 



001EC 



001ED 



001EE 



TWB NOSKIP 



/ 
/ 
/ 



& AM2901 TAB,TAB,NOP,PASS,DZ 
& CONDMSR Z 
& LDMDOR 

& MWRITE ; TWB NEVER FALLS THRU, 
MSR RESET 



READ CENTRAL INTERRUPT REG INTO R6 



READCIR: CALL BYTESWAP & AM2901 MAP X.R6.RAMF, PASS, ZA 

/ 

/ 



/ 

/ 



IF 

LIST 

ENDIF 



RET 

FILL AREA 
FILL 



& SPHNOP 

& SPFNOP ; 

& AM2901 R6,R6,RAMF,AND,DA 

& IMM H OOFF 

& SPHNOP ; MASK OFF SELECT CODE 



2984 
2985 
2986 
2987 
2988 
2989 
2990 

2991 
2992 

2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 



001F0 



0O1F0 
001F1 
001F2 
001F3 
001F4 



* « 

* Interrupt Vector Table * 

* » 



INTTBL: 

IF 

/ 
/ 

/ 
/ 

/ 
/ 

/ 

/ 

/ 
/ 



ORG H 1F0 

EQU $ 

NEWPC 

JP INTPON 



JP INTFTCH 



JP INTPARTY 



JP INTPROT 



JP INTSLRQ 

ice, 

JP INTPFW 



& AM2901 
& SPFNOP 
& SPHNOP 
& AM2901 
& LDMAR 
& MREAD 
& AM2901 
& SPFNOP 
& SPHNOP 
& AM2901 
& SPFNOP 
4 SPHNOP 
& AM2901 
& SPFNOP 
& SPHNOP 
& AM2901 



,, NOP, PASS, ZQ 

- POWER ON 
PC, NOP, PASS, ZB 

1 - EXECUTE A OR B 
, NOP, PASS, ZQ 

2 - PARITY ERROR 
, NOP, PASS, ZQ 

3 - MEMORY PROTECT 
, NOP, PASS, ZQ 

4 - SLAVE REQUEST 
, .NOP, PASS, ZQ 
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LINE 


ADOR 


STATEMENT 






3011 




/ 




& SPFNOP 


3012 


001F5 


/ 




& SPHNOP ; 5 - POWER FAIL 


3013 






JP INTTBG 


& AM2901 ,, NOP, PASS, ZQ 


3014 




/ 




& SPFNOP 


3015 


001F6 


/ 




& SPHNOP ; 6 - TBG 


3016 






JP INTIO 


& AM2901 ,, NOP, PASS, ZQ 


3017 




/ 




& SPFNOP 


3018 


001F7 


/ 




& SPHNOP ; 7-1/0 INTERRUPT 


3019 










3020 


001F8 




FILLER 




3021 










3022 


001F9 




FILLER 




3023 










3024 


001FA 




FILLER 




3025 










3026 


001FB 




FILLER 




3027 










3028 


001FC 




FILLER 




3029 










3030 


001FD 




FILLER 




3031 










3032 


001FE 




FILLER 




3033 










3034 


001FF 




FILLER 




3035 




ELSE 






3080 




ENDIF 
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LINE ADDR STATEMENT 



3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 

3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 



00200 



00200 



00201 



00202 



* 
Index Register Group * 



« 

* 





ORG 


512 




LDX. : 


CALL 


WRTIND 


& AM2901 ,, NOP, PASS, ZQ 


/ 






& SPHNOP 


/ 






4 MREAD ; FETCH ADDR WO 




JP 


SKIP 


& AM2901 TAB, CXY.RAMF, PASS, DZ 


/ 






& SPHNOP 


/ 






& SPFNOP ; 


ADX. : 


CALL 


WRTIND 


& AM2901 ,, NOP, PASS, ZQ 


/ 






4 SPHNOP 


/ 






4 MREAD ; 




CONT 




4 AM2901 TAB,,QREG,PASS,DZ 


/ 






4 SPHNOP 
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LINE 

3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 
3144 
3145 
3146 
3147 
3148 

3149 
3150 



ADDR 



00203 



00204 



00205 



00206 



00207 



00208 



00209 



002 OA 



002 OB 



0020C 



STATEMENT 










/ 






& SPFNOP 


» 
1 




JP 


SKIP 


& AM2901 CXY, CXY, RAMF, ADD, AQ 


/ 






4 CARRYL 




/ 






& LODMSR 




/ 






& ENVE & 


ENBLC 4 ENBLO 


/ 






& SPFNOP 


t 






COPY 


ft/B TO/FROM 


X/Y 




COPYABXY: 


JZ 




4 AM2901 


CAB, CXY, RAMF, PASS, ZA 


/ 






& SPHNOP 




/ 






& IFETCH; 




COPYXYAB: 


JZ 




4 AM2901 


CXY, CAB, RAMF, PASS, ZA 


/ 






& SPHNOP 




/ 






& IFETCH; 








DEC/INC X/Y AND 


SKIP IF ZERO 


DSXY: 


LDCT 


FETCH 


4 AM2901 


CXY, CXY.RAMF, SUBR.ZA 


/ 






4 CARRYH 




/ 






4 LODUSR 




/ 






4 SPHNOP 




/ 






4 IFETCH; 






JRP 


SKIP 


4 AM2901 


,, NOP, PASS, ZQ 


/ 






4 CONDUSR 


Z 


/ 






4 SPHNOP 




/ 






4 SPFNOP 


• 
» 


ISXY: 


LDCT 


FETCH 


4 AM2901 


CXY, CXY, RAMF, ADD, Z A 


/ 






4 CARRYH 




/ 






4 LODUSR 




/ 






4 SPHNOP 




/ 






4 IFETCH 


• 
t 




JRP 


SKIP 


4 AM2901 


,, NOP, PASS, ZQ 


/ 






4 CONDUSR Z 


/ 






4 SPHNOP 




/ 






4 SPFNOP 


t 






LOAD 


A/B INDEXED BY X/Y 




LABXY: 


CALL 


WRTIND 


4 AM2901 


,, NOP, PASS, ZQ 


/ 






4 SPHNOP 




/ 






4 MREAD 


; GET EFFECTIVE ADDR IN Q 




CONT 




4 AM2901 


CXY,, NOP, ADD, AQ 


/ 






4 CARRYL 




/ 






4 LDMAR 




/ 






4 MREAD 


; GEN INDEXED ADDRESS 




CONT 




4 AM2901 


PC, PC, RAMA, ADD, ZB 


/ 






4 CARRYH 






/ 






4 LDMAR 
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LINE 

3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 

3173 
3174 

3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 

3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 

3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 



ADDR 
0020D 

0020E 



0020F 



00210 



00211 



00212 



00213 



00214 



00215 
00216 



00217 
00218 



STATEMENT 

/ 

/ 
/ 



JZ 



& SPFNOP ; NEXT INST ADDR 
& AM2901 TAB,CAB,RAMF,PASS,DZ 
& SPHNOP 
& IFETCH : 



STORE A/B INDEXED BY X/Y 



SABXY: 
/ 

/ 

/ 
/ 
/ 

/ 
/ 



XABXY: 
/ 

/ 

/ 
/ 

/ 
/ 



STX. 
/ 

/ 

/ 
/ 



JLY: 

/ 
/ 

/ 
/ 



CALL WRTIND 



CONT 



JP 



SKIP 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; GET EFFECTIVE ADDR IN Q 

& AM2901 CXY, .NOP.ADD.AQ 

& CARRYL 

& LDMAR 

& SPFNOP ; GEN INDEXED ADDR 

& AM2901 CAB, TAB, NOP, PASS, ZA 

& LDMDOR 

& MWRITE ; WRITE AND FETCH NEXT IN 



EXCHANGE A/B WITH X/Y 



CONT 



CONT 



JZ 



& AM2901 ,CAB,QREG,PASS,ZB 

& SPHNOP 

& SPFNOP ; 

& AM2901 CXY, CAB, RAMF, PASS, ZA 

& SPHNOP 

& IFETCH ; 

& AM2901 , CXY, RAMF, PASS, ZQ 

& SPHNOP 

& SPFNOP ; 



STX - STORE X/Y TO MEMORY 
CALL WRTIND 



JP 



SKIP 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; READ ADDRESS WORD 

& AM2901 CXY, TAB, NOP, PASS, ZA 

& LDMDOR 

& MWRITE ; WRITE X/Y TO MEMORY 



JLY - JUMP AND LOAD Y 
CALL WRTIND 



JP 



SKIP 



& AM2901 PC, Y, RAMF, PASS, Z A 

& SPHNOP 

& MREAD ; READ ADDRESS WORD 

& AM2901 , PC, RAMF, PASS, ZQ 

& SPFNOP 

& SPHNOP ; PC LOADED WITH ADDRESS 



JPY - JUMP INDEXED BY Y 
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LINE 



ADDR 



STATEMENT 



3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 

3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 

3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 



00219 



0021A 



002 1B 



002 1C 



0021D 



0021E 



002 1F 



00220 



- PC := Operand Addr + Y 

- Indirection IS allowed for the operand 



JPY: 

/ 

/ 

/ 

/ 
/ 



CALL WRTIND 



JP 



SKIP 



& AM2901 , , NOP, PASS , ZQ 

& SPHNOP 

& MREAD ; READ ADDRESS WORD INTO 

& AM2901 Y,PC,RAMF,ADD,AQ 

& CARRYL 

& SPHNOP 

& SPFNOP ; COMPUTE ADDR AND FETCH 



* * 

* Bit Manipulation Instructions * 

» . • 

* * 

* Format is: BIT-OPCODE « 

* DEF MASK » 

* DEF TARGET * 
» * 

* Bit opcodes are: * 

* CBS - clear bits * 

* SBS - set bits * 

* TBS - test bits « 

* » 



CBS: 


CALL 


BITSB 


& AM2901 


,, NOP, PASS, ZQ 


/ 






& SPHNOP 




/ 






& MREAD 


; GET OPERANDS 




JP 


BITWRT 


& AM2901 


R4,R5,RAMF,NOTRS,AB 


/ 






& SPHNOP 




/ 






& SPFNOP 


J CLEAR THE BITS 


SBS: 


CALL 


BITSB 


& AM2901 


,, NOP, PASS, ZQ 


/ 






& SPHNOP 




/ 






& MREAD 


; GET OPERANDS 




CONT 




& AM2901 


R4,R5,RAMF,OR,AB 


/ 






& SPHNOP 




/ 






& SPFNOP 


; SET THE BITS 


BITWRT: 


JP 


SKIP 


& AM2901 


R5, TAB, NOP, PASS, ZA 


/ 






& LDMDOR 




/ 






& MWRITE 


; WRITE RESULT BACK TO ME 


TBS: 


CALL 


BITSB 


& AM2901 


,, NOP, PASS, ZQ 


/ 






& SPHNOP 




/ 






& MREAD 


; GET OPERANDS 




CONT 




& AM2901 


R4,R5,RAMF,AND,AB 


/ 






4 SPHNOP 
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LINE 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 
3284 



ADDR 
00221 

00222 

00223 

00224 



00225 
00226 
00227 
00228 

00229 



STATEMENT 
/ 

/ 

/ 
/ 



CONT 



& SPFNOP ; SELECT BITS 

& AM2901 R4,R5,RAMF,EXOR,AB 
& LODUSR 
& SPHNOP 



& SPFNOP 



TEST FOR ALL ONES 



CJP SKIP 



/ 

/ 
/ 

/ 
/ 
/ 



JP 



SKIP 



& AM2901 ,, NOP, PASS ,ZQ 

& CONDUSR Z 

& SPHNOP 

& SPFNOP ; IF ALL ONES 

& AM2901 ,PC,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; SKIP NEXT INSTRUCTION 



BITSB - TWO OPERAND DEF RESOLVER FOR BIT INST, ETC. 

- R4: LOADED WITH RESOLVED FIRST DEF 
R5: LOADED WITH RESOLVED SECOND DEF 
PC: POINTS TO NEXT INSTRUCTION (FOR EXIT THRU SKIP) 



BITSB: 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



CALL WRTIND 
CONT 



CALL WRTIND 



CONT 



RET 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; RESOLVE MASK 

& AM2901 TAB, R4.RAMF, PASS, DZ 

& SPHNOP 

& SPFNOP ; R4 := FIRST OPERAND 

& AM2901 PC, PC, RAMA, PASS, ZB 

& LDMAR 

& MREAD ; RESOLVE TARGET 

& AM2901 TAB, R5.RAMF, PASS, DZ 

& SPHNOP 

& SPFNOP ; R5 := SECOND OPERAND 

& AM2901 ,PC,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP : PC := PC + 1 
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LINE 

3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 

3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 

3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 



ADDR 



STATEMENT 



0022A 

0022B 

0022C 

0022D 
0022E 

0022F 
00230 

00231 



Byte Manipulation Instructions 



* 

* 

• 

* All of these instructions use a byte address. A byte 

* address is two times the normal address plus or 1 if 

* the high (bits 8-15) or low (bits 0-7) byte is desired. 

* 

* Notes: R4 contains byte address 

* R5 contains a H 00FF to mask off a byte 

* R6 contains byte to load or to store 

* 

»«**»*»**»**»tt««*»««»»**»*»««*«*»**»«***»«*»»*»»«*»»»«»*««» 



LBT: 
/ 
/ 
/ 

/ 
/ 

/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 

* 

SBT: 

/ 
/ 

/ 
/ 

N0SKIP: 

/ 

/ 
/ 



CONT 



CALL LDBYTE 



CONT 



CONT 



JZ 



CONT 



CALL STBYTE 



JZ 



& AM2901 B,R4 t SRAMR,PASS,ZA 

& SHIFT ROTATE 

& SPHN0P 

& SPFNOP ; SHIFT BYTE ADDR CIRCULA 

& AM2901 R4, R4, RAMA, PASS, ZB 

& LODMSR 

& LDMAR 

& MREAD ; READ WORD WITH BYTE 

& AM2901 ,PC,NOP,SUBR,ZB 

& CARRYH 

& LDMAR 

& IFETCH ; FETCH NEXT INSTRUCTION 

& AM2901 ,B,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; INC BYTE ADDRESS 

& AM2901 R6,A,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; 

& AM2901 ,R6,RAMF,PASS,DZ 

& IMM H OOFF 

& SPHNOP ; MASK FOR BYTE TO STORE 

& AM2901 A,R6,RAMF,AND,AB 

& SPHNOP 

& SPFNOP ; R6 := BYTE TO STORE 

& AM2901 ,PC,NOP,SUBR,ZB 

& CARRYH 

& LDMAR 

& IFETCH ; 



Byte Common Subroutines 
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LINE 

3334 
3335 
3336 
3337 
3338 
3339 
33^0 
3341 
3342 

3343 
3344 

3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 

3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 

3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 



ADDR 



00232 

00233 
00234 



00235 

00236 
00237 

00238 



00239 
0023A 

0023B 



STATEMENT 



LDBYTE - Load byte into R6, right justified 
STBYTE - Store byte 
BYTESWAP - Swap bytes in R6 



LDBYTE: 

/ 

/ 

/ 
/ 
/ 

/ 
/ 



STBYTE: 
/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 



CONT 



CCALL BYTESWAP 



RET 



& AM2901 ,R5,RAMF,PASS,DZ 

& IMM H OOFF 

& SPHNOP ; R5 := MASK FOR BYTE 

& AM2901 TAB, R6.RAMF, PASS, DZ 

& CONEMSR NSIGN 

& SPHNOP 

& SPFNOP ; IF EVEN BYTE ADDR 

& AM2901 R5,R6,RAMF,AND,AB 

& SPHNOP 

& SPFNOP ; R6 := BYTE 



STBYTE - READ, MODIFY AND WRITE BYTE 
CONT 



CONT 



CONT 



CJP STBYTEOD 



& AM2901 B,R4,SRAMR,PASS,ZA 

& SHIFT ROTATE 

& SPFNOP 

& SPHNOP ; SHIFT BYTE ADDR CIRCULA 

& AM2901 R4, R4, RAMA, PASS, ZB 

& LODMSR 

& LDMAR 

& MREAD ; READ WORD FOR STORE 

& AM2901 ,R5,RAMF,PASS,DZ 

& IMM H OOFF 

& SPHNOP ; MASK FOR (MEM) TO UPDAT 

& AM2901 TAB, ,QREG, PASS, DZ 

& CONDMSR SIGN 

& SPHNOP 

& SPFNOP ; Q := (MEM); IF ODD BYTE 



STORE IS TO EVEN BYTE 

- SWAP BYTES IN R6, TO POSITION NEW BYTE 

- UPDATE BITS 8-15 



CALL BYTESWAP 



/ 

/ 

STBYTEWR: CONT 

/ 

/ 

RET 
/ 
/ 
/ 



& AM2901 R5,,QREG,AND,AQ 

& SPHNOP 

& SPFNOP ; MASK BYTE TO SAVE 

& AM2901 R6,TAB,NOP,OR,AQ 

& LDMDOR 

& MWRITE ; STORE WORD BACK IN MEMO 

& AM2901 ,B,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; BUMP BYTE ADDRESS 
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LINE 

3383 
3384 
3385 
3386 

3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 

3395 
3396 
3397 
3398 
3399 
3400 

3402 
3403 
3404 

3 405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 



ADDR 



STATEMENT 



0023C 



0023D 
0023E 



0023F 



00240 



00241 



00242 



STORE IS TO ODD BYTE 

- UPDATE BITS 0-7 

- MASK TO PRESERVE BYTE IS COMPLEMENT OF EVEN BYTE MASK 



STBYTEOD: JP 

/ 

/ 



STBYTEWR 



BYTE SWAP R6 



BYTESWAP: CONT 

/ 

/ 

RET 
/ 
/ 



4 AM2901 R5,,QREG,N0TRS,AQ 

& SPHNOP 

4 SPFNOP ; MASK BYTE TO SAVE 



4 AM2901 R6,R6,RAMA,PASS,DZ 

4 SPHNOP 

4 L4D ; BYTE SWAP R6 

4 AM2901 R6,R6,RAMA,PASS,DZ 

& SPHNOP 

& L4D ; 



t»*«»*«»«*»*»»«»**»«*»»***«»**»**»*«»**««»«ft*«*»»*»*»*«»*»»* 

* » 

* Word Manipulation Instructions * 

» « 

* * 

* These are the old MEF Series interruptible instructions.* 

* A zero word must follow the instruction which is used to * 

* store a residual count. The from address is in the A reg,* 

* the to address is in the B-reg and the count is pointed « 

* to by the second word of the instruction. * 
ft » 

•*ft»ftft»«ftftftft«ftftft»««ft**ft*»ft»»ft«*»«»**»*«ft«««»**»«ft*ftft«* ****** 



MVW: 
/ 
/ 
LMVW: 

/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 



CALL INITIAL 



LDCT $ 



CONT 



CONT 



CJP INTPEND 



4 AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; 

& AM290 1 A , A , RAMA , ADD, ZB 

4 CARRYH 

& LDMAR 

& MREAD ; READ SOURCE WORD 

4 AM2901 B.B, RAMA, ADD, ZB 

4 CARRYH 

4 LDMAR 

4 SPFNOP ; MAR := DESTINATION ADDR 

4 AM2901 TAB.TAB, NOP, PASS, DZ 

4 LDMDOR 

4 MWRITE ; WRITE DESTINATION WORD 

4 AM2901 ,R12,RAMF,SUBR,ZB 

4 CARRYH 
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LINE 
3432 


ADDR 


STATEME1 

/ 


n 




& CONDEXT INTRPT 


3433 




/ 






& SPHNOP 


3434 


00243 


/ 






& SPFNOP ; IF INTERRUPT PENDING 


3435 






JRP 


SKIP 


& AM2901 ,, NOP, PASS, ZQ 


3436 




/ 






& CONDUSR Z 


3437 




/ 






& SPHNOP 


3438 


00244 


/ 






& SPFNOP ; IF COUNT IS ZERO 


3439 












3440 






CMW - 


COMPARE WORDS 


3441 












3442 




CMW: 


CALL 


INITIAL 


& AM2901 ,, NOP, PASS, ZQ 


3443 




/ 






& SPHNOP 


3444 


00245 


/ 






& MREAD ; 


3445 




LCMW: 


LDCT 


$ 


& AM2901 A, A, RAMA, ADD, ZB 


3446 




/ 






& CARRYH 


3447 




/ 






& LDMAR 


3448 


00246 


/ 






& MREAD ; READ ARRAY 1 WORD 


3449 






CONT 




& AM2901 B, B, RAMA, ADD, ZB 


3450 




/ 






& CARRYH 


3451 




/ 






& LDMAR 


3452 


00247 


/ 






& SPFNOP ; MAR := ARRAY 2 ADDR 


3453 






CONT 




& AM2901 TAB, R5.RAMF, PASS, DZ 


3454 




/ 






& SPHNOP 


3455 


00248 


/ 






& MREAD ; R5 := WORD1, READ ARRAY 
2 WORD 


3456 






CONT 




& AM2901 TAB, R6.RAMF, PASS, DZ 


3457 




/ 






& SPHNOP 


3458 


00249 


/ 






& MREAD ; R6 := WORD 2 (FORCE 
FREEZE) 


3459 






CONT 




& AM2901 R6,R5,NOP,SUBR,AB 


3460 




/ 






& CARRYL 


3461 




/ 






& LODUSR 


3462 




/ 






& SPHNOP 


3463 


0024A 


/ 






& SPFNOP ; COND REG := W0RD1-W0RD2 


3464 






CJP 


CMWNEQ 


& AM2901 R6,R5,NOP,SUBR,AB 


3465 




/ 






& CARRYL 


3466 




/ 






& CONDUSR NZ 


3467 




/ 






& SPHNOP 


3468 


0024B 


/ 






& SPFNOP ; IF NOT EQUAL 


3469 






CJP 


INTPEND 


& AM2901 ,R12,RAMF,SUBR,ZB 


3470 




/ 






& CARRYH 


3471 




/ 






& CONDEXT INTRPT 


3472 




/ 






& SPHNOP 


3473 


002 4C 


/ 






& SPFNOP ; IF INTERRUPT PENDING 


3474 






JRP 


SKIP 


& AM2901 , , NOP, PASS, ZQ 


3475 




/ 






& CONDUSR Z 


3476 




/ 






& SPHNOP 


3477 


0024D 


/ 






& SPFNOP ; IF COUNT IS ZERO 


3478 




9 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 


ADDR 


STATEMENT 








3479 




CMWNEQ: 


CJP 


CMWLT 


4 AM2901 ,PC,RAMF,ADD,ZB 


3480 




/ 






4 CARRYH 


3481 




/ 






& CONDUSR LT 


3482 




/ 






& SPHNOP 


3483 


002 4E 


/ 






4 SPFNOP ; • INC PC ONCE 


3484 






CONT 




& AM2901 ,PC,RAMF,ADD,ZB 


3485 




/ 






& CARRYH 


3486 




/ 






& SPHNOP 


3487 


0024F 


/ 






& SPFNOP ; INC PC TWICE 


3488 




CMWLT: 


CONT 




4 AM2901 R12,B,RAMF,ADD,AB 


3489 




/ 






4 CARRYL 


3490 




/ 






4 SPHNOP 


3491 


00250 


/ 






& SPFNOP ; B POINTS PAST END OF AR 


3492 






CONT 




4 AM2901 ,B,RAMF,SUBR,ZB 


3493 




/ 






4 CARRYH 


3494 




/ 






4 SPHNOP 


3495 


00251 


/ 






4 SPFNOP ; 


3496 






JP 


SKIP 


4 AM2901 ,A,RAMF,SUBR,ZB 


3497 




/ 






4 CARRYH 


3498 




/ 






4 SPHNOP 


3499 


00252 


/ 






4 SPFNOP; A POINTS TO LAST WORD 


3500 












3501 






MBT - 


MOVE BYTES 




3502 












3503 




MBT: 


CALL 


INITIAL 


4 AM2901 , , NOP, PASS, ZQ 


3504 




/ 






4 SPHNOP 


3505 


00253 


/ 






4 MREAD ; 


3506 






LDCT 


LMBT 


4 AM2901 ,, NOP, PASS, ZQ 


3507 




/ 






4 SPHNOP 


3508 


00254 


/ 






4 SPFNOP ; SETUP ADDR FOR JRP 


3509 




LMBT: 


CONT 




4 AM2901 A,R4,SRAMR,PASS,ZA 


3510 




/ 






4 SHIFT ROTATE 


3511 




/ 






4 SPHNOP 


3512 


00255 


/ 






4 SPFNOP ; MAKE R4 WORD ADDR 


3513 






CALL 


LDBYTE 


4 AM2901 R4.R4, RAMA, PASS, ZB 


3514 




/ 






4 LODMSR 


3515 




/ 






4 LDMAR 


3516 


00256 


/ 






4 MREAD ; READ WORD CONTAINING BY 


3517 






CALL 


STBYTE 


4 AM2901 ,A,RAMF,ADD,ZB 


3518 




/ 






4 CARRYH 


3519 




/ 






4 SPHNOP 


3520 


00257 


/ 






4 SPFNOP ; INC A (STBYTE INC'S B) 


3521 






CJP 


INTPEND 


4 AM2901 ,R12,RAMF,SUBR,ZB 


3522 




/ 






4 CARRYH 


3523 




/ 






4 CONDEXT INTRPT 


3524 




/ 






4 SPHNOP 


3525 


00258 


/ 






4 SPFNOP ; IF INTERRUPT PENDING 


3526 






JRP 


SKIP 


4 AM2901 ,, NOP, PASS, ZQ 


3527 




/ 






4 CONDUSR Z 
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A600 BASESET MICROCODE (06/1 V82 »A) 



LINE 

3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 

3551 
3552 

3553 
3554 
3555 
3556 
3557 
3558 

3559 
3560 
3561 
3562 

3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 



ADDR 



00259 



0025A 



002 5B 



0025C 



0025D 



0025E 



0025F 



00260 



00261 



00262 



00263 



STATEMENT 








/ 






& SPHNOP 


/ 






& SPFNOP ; IF COUNT IS ZERO 




CBT - 


COMPARE 


BYTES 


CBT: 


CALL 


INITIAL 


& AM2901 ,, NOP, PASS ,ZQ 


/ 






& SPHNOP 


/ 






& MREAD ; 


LCBT: 


CONT 




& AM2901 A,R4,SRAMR,PASS,ZA 


/ 






& SHIFT ROTATE 


/ 






& SPHNOP 


/ 






& SPFNOP ; 




CALL 


LDBYTE 


& AM2901 ,R4, NOP, PASS, ZB 


/ 






& LODMSR 


/ 






& LDMAR 


/ 






& MREAD ; READ BYTE ARRAY 1 




CONT 




& AM2901 ,A,RAMF,ADD,ZB 


/ 






& CARRYH 


/ 






& SPHNOP 


/ 






& SPFNOP ; INC A 




LDCT 


LCBT 


& AM2901 R6,R7,RAMF,PASS,ZA 


/ 






& SPHNOP 


/ 






& SPFNOP ; R7 := BYTE 1 




CONT 




& AM2901 B,R4,SRAMR,PASS,ZA 


/ 






& SHIFT ROTATE 


/ 






& SPHNOP 


/ 






& SPFNOP ; 




CALL 


LDBYTE 


& AM2901 ,R4, NOP, PASS, ZB 


/ 






& LODMSR 


/ 






& LDMAR 


/ 






& MREAD ; READ BYTE ARRAY 2 




CONT 




& AM2901 ,B,RAMF,ADD,ZB 


/ 






& CARRYH 


/ 






& SPHNOP 


/ 






& SPFNOP ; INC B 




CONT 




& AM2901 R6,R7,NOP,SUBR,AB 


/ 






& CARRYL 


/ 






& LODUSR 


/ 






& SPHNOP 


/ 






& SPFNOP ; COND REG := BYTE1 - BYT 




CJP 


CMWNEQ 


& AM2901 R6,R7,NOP,SUBR,AB 


/ 






& CARRYL 


/ 






& CONDUSR NZ 


/ 






& SPHNOP 


/ 






& SPFNOP ; IF STRINGS NOT EQUAL 




CJP 


INTPEND 


& AM2901 ,R12,RAMF,SUBR,ZB 


/ 






& CARRYH 


/ 






& CONDEXT INTRPT 


/ 






& SPHNOP 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 
3604 

3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 

3613 
3614 
3615 
3616 
3617 
3618 



ADDR 
00264 

00265 



00266 
00267 
00268 

00269 

0026A 

0026B 

0026C 



0026D 



0026E 



STATEMENT 
/ 

/ 

/ 
/ 



SFB: 

/ 

/ 

/ 
/ 

/ 
/ 

LSFB: 

/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 

/ 
/ 
/ 

/ 
/ 
/ 



JRP SKIP 



& SPFNOP 
4 AM2901 
& CONDUSR 
& SPHNOP 
& SPFNOP 



IF INTERRUPT PENDING 
,, NOP, PASS, ZQ 
Z 

: IF COUNT IS ZERO 



SFB - SCAN FOR BYTE 
CONT 



CALL BYTESWAP 



CONT 



CONT 



CALL LDBYTE 



LDCT LSFB 



CJP NOSKIP 



CJP SKIP 



JRP INTERRPT 



& AM2901 A,R7,RAMF,AND,DA 

& IMM H OOFF 

& SPHNOP ; R7 := TEST BYTE 

& AM2901 A,R6,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; 

& AM2901 R6,R8,RAMF,AND,DA 

& IMM H OOFF 

4 SPHNOP ; R8 := TERMINATION BYTE 

& AM2901 B,R4,SRAMR,PASS,ZA 

& SHIFT ROTATE 

& SPHNOP 

& SPFNOP ; MAKE WORD ADDRESS 

& AM2901 R4.R4, RAMA, PASS, ZB 

& LODMSR 

& LDMAR 

& MREAD ; READ WORD CONTAINING BY 

& AM2901 R6,R7,N0P,EX0R,AB 

& LODMSR 

& SPHNOP 

& SPFNOP ; COMPARE TO TEST BYTE 

& AM2901 R6,R8,NOP,EXOR,AB 

& CONDLMSR Z 

& SPHNOP 



& SPFNOP 



IF TEST BYTE MATCHES 



& AM2901 ,B,RAMF,ADD,ZB 

& CARRYH 

& CONDMSR Z 

4 SPHNOP 

& SPFNOP ; IF TERMINATION BYTE MAT 

4 AM2901 ,, NOP, PASS, ZQ 

4 CONDEXT INTRPT 

4 SPHNOP 



4 SPFNOP 



IF INTERRUPT PENDING 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 

3635 
3636 

3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 

3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 

3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 



AODR 



STATEMENT 



0026F 



00270 



00271 



00272 



00273 



00274 



00275 

00276 
00277 



Word Manipulation Subroutines 

INITIAL - Initialize R12 with the proper word count 



INITIAL: CALL WRTIND 

/ 

/ 



/ 
/ 
/ 

/ 
/ 
/ 

/ 



/ 
/ 
/ 

/ 
/ 

/ 



/ 
/ 



C0NT 



CJP SKIP 



CONT 



CRET 



RET 



& AM2901 , , NOP, PASS, ZQ 

& SPHNOP 

4 SPFNOP ; RESOLVE COUNT 

& AM2901 TAB,R12,RAMF,PASS,DZ 

4 LOEMSR 

& SPHNOP 

& SPFNOP ; R12 := COUNT 

4 AM2901 PC, PC, RAMA, ADD, ZB 

4 CARRYH 

4 CONDMSR Z 

& LDMAR 

& MREAD ; READ RESIDUAL, EXIT IF 

COUNT == 
& AM2901 TAB,, QREG, PASS, DZ 
& LODMSR 
& SPHNOP 

& MREAD ; FREEZE FOR RESIDUAL WOR 
4 AM2901 ,,NOP,AND,ZQ 
& CONDMSR Z 
& LDMDOR 
4 MWRITE ; IF RESIDUAL WAS ZERO 4 

ZERO IT 
4 AM2901 ,R12,RAMF,PASS,ZQ 
4 SPHNOP 
4 SPFNOP ; 



INTPEND - Interrupt pending during block type instruction 

NOTE: It is possible for interrupt to happen on last word. 
Therefore, check for zero before doing interrupt. 



INTPEND: CJP 
/ 

/ 
/ 



/ 
/ 

/ 

/ 
/ 



CONT 



JP 



SKIP 4 AM2901 ,, NOP, PASS, ZQ 

4 CONDUSR Z 

4 SPHNOP 

4 SPFNOP ; IF BLOCK INST JUST FINI 

4 AM2901 ,PC,RAMF,SUBR,ZB 

4 CARRYH 

4 LDMAR 

4 SPFNOP ; BACK UP PC 

INTERRPT 4 AM2901 R1 2, TAB, NOP, PASS.ZA 

4 LDMDOR 

4 MWRITE ; WRITE RESIDUAL COUNT TO 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



3666 

3667 
3668 
3669 
3670 

3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 
3704 
3705 
3706 
3707 
3708 
3709 



* 

« 
« 
« 

ft 

« 
« 
« 
« 
» 
» 
ft 

« 
ft 

* 
* 

« 
« 

« 



DMS Map Feature 



ft»«ftft«««««ft»ftftft«*«««ft««*«ftft«ftft««ft»«ftft»««*»»««ftftftft«««»ftftft«»«» 

» 
* 

« 

- There are 32 sets of 32 map registers. The map set is * 
selected by the Address Extention Reg. The actual * 
map reg is selected by bits 10 to 14 of the MAR. * 

The AER is loaded from bits 0-5 of the Y bus. Ex: * 

• 

» 
* 
« 
• * 

ft j j J. + + J 4 4. + h h— — + 4 H H H + * 



ROM 



-+- 

I 
I 

-+- 



Map Set Number 
.+ ^ + — 



AER 



l Map Reg Num 
-+ — h — + — ^ — +- 



Offset 
— +• 



H +- 



-H + 



MAR* 

* 

» 

- The Macro machine can access two map sets directly. * 
They are called Execute map and Data 1 map. These map * 

numbers are kept in two 2901 registers: * 

« 

+ + + 4 + + + ^ 4 H + + + + + + + * 

I MAPD* 
-+ * 

» 



i 

+- 



Data 1 Map 
-+ — h — h — + — +- 



Exec Map 
-+ — + — + — +- 



I MAPX« 



-^ — + 



- The MAPD and MAPX registers are loaded from WMAP or 
the Working MAP set. WMAP has the format: 



IMP! 



-H +— -+- 



DATA1 
— + — +- 



EXEC 
-+ — + — +- 



Where: MP - Memory Protect enable 
DATA1 - Data 1 map number 
EXEC - Execute map number 



« 
« 

* 
« 
» 

i WMAP* 

« 
* 
* 
« 
» 



»«»»»«»»»»«»»»»»»»»»»»»»«»»«»»«»*»»»»»*»»»»»»***»»»»«»«****» 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



STATEMENT 



3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 



•*««*»**»»****«**»**»***««»•*»•«»««»**»**»»****»«»«*»«**«* 



Priv Hedged DMS Instructions 



- The following DMS instructions are priviledged: 

LPMR - Load Page Mapping Register 
SPMR - Store Page Mapping Register 
LMAP - Load Map 
SMAP - Store Map 
LWD1 - Load Data 1 map number 
SWMP - Store Working Map set 
SIMP - Store Interrupt Map set 
XJMP - Cross map JMP 

- If any of these instructions are executed while memory 
protect is enabled, a memory protect violation will be 
generated by the firmware. After the instruction is 
decoded, a test is made for Memory Protect enable. If 
true, generate protect violation. 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

3737 
3738 

3739 
3740 
3741 
3742 

3743 
3744 

3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 

3753 
3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 



ADDR 



00278 
00279 
0027A 
0027B 



0027C 
0027D 
0027E 



STATEMENT 



* 

XL.1 

DEF ADDRESS 



CROSS LOAD A/B FROM ALTERNATE MAP 1 
INDIRECTS ARE RESOLVED IN THE EXECUTE MAP 
THE FINAL REFERENCE TAKES PLACE WITH BOOT 
MEMORY AND A/B ADDRESSABILITY TURNED OFF 



***«ft»*»«*»«»»«»*«»*»o»»«*»**»«»«*ft**»«**«ft*«»«»»**«* 



XL. 10: 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



CALL WRTIND 

CONT 

CONT 

JP SKIP 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; READ ADDRESS WORD 

& AM2901 .MAPD, NOP, PASS, ZB 

& LDAER 

& MREAD ; START A READ IN DATA1 M 

& AM2901 ,MAPX, NOP, PASS, ZB 

& LDAER 

& SPFNOP; PUT EXECUTE MAP INTO AE 

& AM2901 , CAB, RAMF, PASS, DZ 

& SPHNOP 

& SPFNOP ; LOAD A/B WITH DATA 



* • 

* XC . 1 * 

* DEF ADDRESS * 

* * 

* CROSS COMPARE A/B WITH LOCATION IN * 

* ALTERNATE MAP 1. ADDRESS POINTS TO * 

* A LOCATION IN DATA1 MAP. * 
« * 
»«*«»«*«««o«*ft**»**»«*ft«*»»»*ft*»«*ft***«»*ft************ 



xc.10: 
/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



CALL WRTIND 

CONT 

CONT 

CONT 



& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; RESOLVE ADDRESS 

& AM2901 , MAPD, NOP, PASS, ZB 

& LDAER 

& MREAD ; READ FROM DATA1 MAP 

& AM2901 .MAPX, NOP, PASS, ZB 

& LDAER 

& SPFNOP ; PUT EXEC MAP IN AER 

& AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 

3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 

3816 
3817 
3818 
3819 
3820 
3821 
3822 

3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 

3833 
3834 



ADDR 
0027F 

00280 



00281 
00282 
00283 
00284 



00285 
00286 



STATEMENT 

/ 

/ 
/ 



JP 



CP. 1 



& SPFNOP ; 

4 AM2901 ,R4,RAMF,PASS,DZ 

& SPHNOP 

& IFETCH ; R4 := DATA1 WORD, FETCH 



XS.1 

DEF ADDRESS 



* 

* 
* 
CROSS STORE A/B THROUGH MAP 1 » 

INDIRECTS ARE RESOLVE IN THE EXECUTE MAP * 
A/B ADDRESSABILITY AND BOOT MODE ARE TURNED * 
OFF FOR THE FINAL REFERENCE (STORE) * 

* 



xs.10: 

/ 

/ 

/ 
/ 

/ 
/ 

/ 

/ 



CALL WRTIND 



CONT 



CONT 



JP 



SKIP 



& AM2901 ,, NOP, PASS, ZB 

& SPHNOP 

& MREAD ; READ ADDRESS WORD 

& AM2901 ,MAPD, NOP, PASS, ZB 

& LDAER 

& SPFNOP; LOAD AER WITH DATA1 MAP 

& AM2901 , CAB, NOP, PASS, ZB 

& LDMDOR 

& MWRITE ; WRITE DATA WITH DATA1 

& AM2901 ,MAPX, NOP, PASS, ZB 

& LDAER 

& SPFNOP; PUT EXEC MAP IN AER 



* * 

* LWD1 * 

* DEF NEWDATA1 * 

* » 

* LOADS THE DATA1 MAP PORTION OF MAPD REG « 

* FROM NEWDATA1. THE LOWER 8 BITS OF • 

* THE DATA WORD ARE LOADED INTO MAPD. * 

* • 

**««»»»*»X»**ft»**«*»******»«**»*»«*»»*»**»ft»ft***««**« 



LWD10: 

/ 

/ 
/ 

/ 
/ 



CJP GENMPV 



CALL WRTIND 



& AM2901 ,, NOP, PASS, ZQ 

& CONDEXT MPEN 

& SPHNOP 

& SPFNOP ; IF MEM PROT ENABLED 

& AM2901 , , NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; RESOLVE NEWDATA1 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

3835 
3836 
3837 
3838 

3839 
3 840 
3841 
3842 
3843 
3844 

3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 

3853 
3854 

3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 

3863 
3864 

3865 
3866 
3867 
3868 

3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 



ADDR 



STATEMENT 



00287 
00288 
00289 



0028A 

002 8B 
0028C 
0028D 

002 8E 

0028F 



/ 

/ 
/ 

/ 
/ 

/ 

/ 



CONT & AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 

& SPFNOP ; ADDR OF NEXT INST 
CONT & AM2901 TAB, R4.RAMF, PASS, DZ 

& SPHNOP 

& IFETCH ; R4 := NEW DATA1 VALUE 
JZ & AM2901 R4,MAPD,RAMF,AND,DA 

& SPHNOP 

& IMM H OOFF ; SET NEW DATA1 IN 
MAPD 

« « 

* LPMR * 

« 

» 

* 



LOAD PAGE MAPPING REG ADDRESSED BY A REG 
FROM B REG. A REG IS INCREMENTED 



» 

« 

* 

CJP GENMPV 



LPMRO: 
/ 

/ 
/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



CALL POSIMAPR 



CONT 



CONT 



DMSEXIT: CONT 

/ 

/ 

JZ 
/ 
/ 
/ 



& AM2901 , .NOP, PASS, ZQ 

& CONDEXT MPEN 

& SPHNOP 

& SPFNOP ; IF MEM PROTECT ENABLED 

& AM2901 ,A,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; POSITION MAP REG NUMBER 

& AM2901 ,R4,RAMF,PASS,DZ 

& IMM H 7FFF 

& SPHNOP ; MASK FOR READ PROT 

& AM2901 R4,B,NOP,AND,AB 

& SPWR MAPWR 

& SPFNOP ; MASK OFF READ PROT AND 

LOAD MA 
& AM2901 ,MAPX, NOP, PASS, ZB 
& LDAER 

& SPFNOP ; LOAD AER WITH EXEC MAP 
& AM2901 ,PC,NOP,SUBR,ZB 
& CARRYH 
& LDMAR 
& IFETCH ; FETCH NEXT INSTR 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



3877 
3878 
3879 
3880 
3881 
3882 
3883 
3 884 
3885 
3886 
3887 
3888 
3889 
3890 

3891 
3892 

3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 

3903 
3904 

3905 
3906 
3907 
3908 
3909 
3910 

3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 



00290 

00291 
00292 
00293 



00294 
00295 

00296 
00297 



* * 

* SPMR « 
» * 

« STORE PAGE MAPPING REG ADDRESSED BY A REG * 

* INTO B REG. A REG IS INCREMENTED. * 

* * 



SPMRO: 

/ 

/ 
/ 

/ 

/ 
/ 

/ 
/ 

/ 

/ 



CJP GENMPV 



CALL POSIMAPR 



CONT 



JP 



DMSEXIT 



& AM2901 ,, NOP, PASS, ZQ 

& CONDEXT MPEN 

& SPHNOP 

& SPFNOP ; 

& AM2901 ,A,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; POSITION MAP REG NUMBER 

& AM2901 ,B,RAMF,PASS,DZ 

& SPRD MAPRD 

& SPHNOP ; B := MAP REG NUMBER 

& AM2901 ,, NOP, PASS, ZB 

& SPHNOP 

& SPFNOP ; WRAP UP DMS EXECUTION 



POSIMAPR - POSITION MAP REG NUMBER 

THIS ROUTINE POSITIONS THE MAP REGISTER NUMBER IN A REG 
SO THE ACTUAL MAP REG CAN BE READ OR WRITTEN. 



POSIMAPR: PUSH H 004 

/ 

/ 

/ 



/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 



RFCT 



CONT 



RET 



& AM2901 A,R4,RAMF,SUBR,ZA 

& CARRYH 

& SPHNOP 

& SPFNOP ; R4 := A - 1 

& AM2901 ,R4,SRAMR,PASS,ZB 

& SHIFT ROTATE 

& SPHNOP 

& SPFNOP ; ROTATE R4 RIGHT 5 BITS 

& AM2901 ,R4,SRAMR,PASS,ZB 

& SHIFT ROTATE 

& LDAER 

& SPFNOP ; PUT MAPSET U IN AER 

& AM2901 , R4, NOP, PASS, ZB 

& LDMAR 

& LDMAPD ; MAR := PAGE #, READ 



D-94 



A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 

3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 

3957 
3958 
3959 
3960 
3961 
3962 

3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 



ADDR 



00298 
00299 

002 9A 
002 9B 



0029C 
0029D 



STATEMENT 



LMAP 

DEF MAP_N UMBER 

DEF MAP_IMAGE 

LOADS THE 32 PAGE REGISTERS IN MAP 
MAP_NUMBER FROM CONSECUTIVE MEMORY 
LOCATIONS STARTING AT MAP IMAGE 



Note: Map reg value is masked with H 7FFF 
to turn off read protect. 

All reads and writes are done in the 
EXEC map and are A/B addressable 



LMAP0: 
/ 
/ 
/ 

/ 
/ 

/ 

/ 
/ 

/ 
/ 



CJP GENMPV 



CALL BITSB 



CONT 



CONT 



& AM2901 ,, NOP, PASS, ZQ 

& CONDEXT MPEN 

4 SPHNOP 

4 SPFNOP ; IF MEM PROTECT ENABLED 

4 AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

4 MREAD ; RESOLVE OPERANDS 

& AM2901 ,R5,RAMF,ADD,ZQ 

4 CARRYH 

4 SPHNOP 

4 SPFNOP ;R5 := MAP_IMAGE ADDR + 1 

4 AM2901 ,R6,RAMF,PASS,DZ 

4 IMM H 7FFF 

4 SPHNOP ; MASK FOR READ PROT 



LOOP TO TRANSFER MAP 
- R8 IS PAGE NUMBER 
NOTE: WRTIND STARTED A READ OF MAP IMAGE 



/ 

/ 

/ 
/ 



PUSH H 01F 



CONT 



CONT 



4 AM2901 ,R8,RAMF,AND,ZB 

4 SPHNOP 

4 SPFNOP ; ZERO PAGE NUMBER 

4 AM2901 R4, R4, RAMA, PASS, ZB 

4 LDAER 

4 SPFNOP ; LOAD AER WITH MAP_NUMBE 

4 AM2901 R8,R8,RAMA,ADD,DA 

4 CARRYL 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 



ADDR 



STATEMENT 



3971 
3972 

3973 
3974 
3975 

3976 
3977 
3978 
3979 
3980 
3981 
3982 

3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4 000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 



0029E 
0029F 

002A0 

002A1 

002A2 



002A3 



002A4 



002A5 



& IMM H 0400 

& LDMAR ; LOAD MAR WITH PAGE_NUMB 
CONT & AM2901 R6,, NOP, AND, DA 

& SPWR MAPWR 

& SPFNOP ; MASK READ PROT DURING 
MAP WRIT 
CONT & AM2901 MAPX, MAPX, RAMA, PASS, ZB 

& LDAER 

& SPFNOP ; LOAD AER WITH EXECUTE M 
RFCT & AM2901 R5, R5, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 

& MREAD ; READ NEXT MAP_IMAGE LOC 
JZ & AM2901 PC, PC, RAMA, ADD, ZB 

& CARRYH 

& LDMAR 

& IFETCH ; FETCH NEXT INSTRUCTION 



SMAP 

DEF MAP_N UMBER 

DEF MAP_IMAGE 

STORES THE 32 PAGE REGISTERS IN MAP 
MAP_N UMBER INTO CONSECUTIVE MEMORY 
LOCATIONS STARTING AT MAP_IMAGE 

ALL READS AND WRITES ARE DONE IN THE 
EXECUTE MAP, AND ARE A/B ADDRESSABLE 



» 

* 
* 
» 

« 
« 
« 
» 
» 
» 
» 



»ftftft»«ft««ft«ftft«**»ft*ftft«ft«ftftft»«»ft««ftft««ft»»«««*»«««««»*» 



SMAPO: 
/ 
/ 
/ 

/ 
/ 



CJP GENMPV 



CALL BITSB 



& AM2901 ,, NOP, PASS, ZQ 

& CONDEXT MPEN 

& SPHNOP 

& SPFNOP ; IF MEM PROTECT ENABLED 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; RESOLVE OPERANDS 



PLACE MAP IMAGE ADDRESS IN R5 



CONT 



& AM2901 ,R5,RAMF,PASS,ZQ 

& SPHNOP 

& SPFNOP ; ADDR RETURNED IN Q REG 



LOOP TO TRANSFER MAP 
- R8 IS PAGE NUMBER REG 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

4019 
4020 
4021 
4022 

4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 

4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 

4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 



ADDR 

002A6 

002A7 
002A8 
002A9 



STATEMENT 



002AA 



002AB 



002AC 



002AD 



002AE 



/ 
/ 

/ 
/ 

/ 

/ 
/ 

/ 

/ 



/ 
/ 

/ 

/ 
/ 



PUSH H 01F 



CONT 



CONT 



CONT 



CONT 



RFCT 



4 AM2901 ,R8,RAMF,AND,ZB 

4 SPHNOP 

4 SPFNOP ; ZERO PAGE NUMBER 

4 AM2901 R8,R8,RAMA,ADD,DA 

4 CARRYL 

4 IMM H 0400 

4 LDMAR ; LOAD MAR WITH PAGE NUMB 

4 AM2901 R4.R4, RAMA, PASS, ZB 

4 LDAER 

4 LDMAPD ; LOAD AER AND DO MAP REA 

4 AM2901 ,, NOP, PASS, DZ 

4 SPRD MAPRD 

4 LDMDOR ; PASS MAP-DATA IN REG 

TO MDO 
4 AM2901 R5.R5, RAMA , ADD, ZA 
4 CARRYH 
4 LDMAR 

4 SPFNOP ; LOAD MAR AND INC MAP_IM 
4 AM2901 MAPX.MAPX, RAMA, PASS, ZB 
4 LDAER 
4 MWRITE ; LOAD AER AND WRITE 



FETCH NEXT INSTRUCTION 

JZ 4 AM2901 PC, PC, RAMA, ADD, ZB 

/ 4 CARRYH 

/ 4 LDMAR 

/ 4 IFETCH; 



* 
SWMP « 

DEF SAVEWMAP « 

x 

STORES THE CURRENT WMAP INTO MEMORY. * 

* 



4 AM2901 ,, NOP, PASS, ZQ 

4 CONDEXT MPEN 

4 SPHNOP 

4 SPFNOP ; IF MEM PROTECT ENABLED 

4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

4 MREAD ; RESOLVE SAVEWMAP ADDR 

4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 



swmpo: 


CJP 


GENMPV 


/ 






/ 






/ 








CALL 


WRTIND 


/ 






/ 








CALL 


STWMAP 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 
4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 



ADDR 



002AF 



002B0 



002B1 

002B2 

002B3 

002B4 

002B5 

002B6 

002B7 

002B8 



STATEMENT 

/ 

/ 
/ 



& SPFNOP ; STORE WMAP INTO R4 

JP SKIP & AM2901 R4,TAB,NOP,PASS,ZA 

& LEMDOR 
& MWRITE ; STORE R4 INTO MEM 



* 

SIMP 

DEF SAVEIMAP 



STORES THE CONTENTS OF IMAP REG INTO 
MEMORY. IMAP REG IS ACTUALLY IN BOOT 
MEMORY AT LOCATION "IMAPLOC". 



•«*o*»«*#**»»*#*»»««**»***«*»*«*»*»«»**»«»*«»»***** 



simpo: 
/ 
/ 
/ 

/ 
/ 

/ 
/ 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 



CJP GENMPV 

CALL WRTIND 

CONT 

CONT 

CONT 

CONT 

CONT 



JP 



SKIP 



& AM2901 , , NOP, PASS, ZQ 

& CONDEXT MPEN 

& SPHNOP 

& SPFNOP ; IF MEM PROTECT ENABLED 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; RESOLVE SAVEIMAP ADDR 

& AM2901 , , NOP, PASS, DZ 

& IMM H 0020 

& LDAER ; ENABLE BOOT MEMORY 

& AM2901 ,, NOP, PASS, DZ 

& IMM IMAPLOC 

& LDMAR ; MAR := ADDR OF IMAP REG 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; READ IMAP 

& AM2901 ,MAPX, NOP, PASS, ZB 

& LDAER 

& SPFNOP ; PUT MAPX BACK INTO AER 

& AM2901 ,, NOP, PASS, ZQ 

& LDMAR 

& SPFNOP ; PUT SAVEIMAP ADDR INTO 

& AM2901 , TAB, NOP, PASS, DZ 

& LDMDOR 

& MWRITE ; STORE IMAP INTO MEM 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 

4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 

4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 

4133 
4134 

4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 

4153 
4154 
4155 



ADDR 



002B9 
002BA 



002BB 



002BC 



002BD 



002BE 



002BF 



002C0 



STATEMENT 



» 

XJMP « 

DEF NEWWMAP * 

DEF NEXT INST « 

* 

LOADS NEW WORKING MAP SET FROM NEWWMAP. * 
SETS PC TO NEXT INST AND CONTINUES. • 
SETS MEMORY PROTECT ON IF SIGN SET * 

* 



xjmpo: 
/ 

/ 
/ 

/ 
/ 



/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 

/ 

/ 



/ 
/ 
/ 

/ 
/ 



CJP genmpv 



CALL BITSB 



& AM2901 ,, NOP, PASS, ZQ 

& CONDEXT MPEN 

4 SPHNOP 

4 SPFNOP ; IF MEM PROT ENABLED 

4 AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

4 MREAD ; RESOLVE OPERANDS 



ON RETURN, R4 IS NEWWMAP AND R5 IS NEXTINST 
- LOAD MAPD AND MAPX FROM THE NEW WMAP VALUE 



CONT 



PUSH H 004 



RFCT 



CONT 



& AM2901 R4,MAPX,RAMF,AND,DA 

& IMM H 001F 

& LDAER ; SET EXECUTE MAP 

& AM2901 ,R4, NOP, PASS, ZB 

& LODMSR 

4 SPHNOP 

& SPFNOP ; SET SIGN WITH MP ENBL 

& AM2901 ,R4,SRAMR,PASS,ZB 

4 SHIFT B 0000 

4 SPHNOP 

4 SPFNOP ; POSITION DATA1 

4 AM2901 R4,MAPD,RAMF,AND,DA 

4 IMM H 001F 

4 SPHNOP ; LOAD DATA1 INTO MAPD 



TURN ON MEM PROTECT IF SIGN OF WMAP WAS SET 



CCALL STC07 



JP 



IOSKIP 



4 AM2901 , , NOP, PASS, ZQ 

4 CONDMSR SIGN 

4 SPHNOP 

4 SPFNOP ; 

4 AM2901 ,PC,RAMF,PASS,ZQ 

4 SPHNOP 

4 SPFNOP ; PC := NEXTINST 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

4158 

4159 

4160 

4161 

4162 

4164 

4165 

4166 

4167 

4168 

4169 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 
4184 
4185 
4186 
4187 

4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 

4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 



ADDR 



002C1 



002C2 



002C3 
002C4 

002C5 
002C6 

002C7 
002C8 
002C9 



STATEMENT 



*«»«ftM»»«*»«0*ft***»»»*«»**»*«********«»**«ft****»*»«**«**ft* 

* 

* DMS INSTRUCTION SUBROUTINES 

* 

GENMPV - Generate memory protect violation 

- This routine will generate a protect violation for a 
priviledged instruction that was executed with Memory 
Protect enabled. 

- The procedure is to simply assert the set Mem Prot signal 
(and turn off memory protect due to bug in PAL). 

No new fetch is executed. The idea is to leave the PC 
pointing to the word after the offending instruction. 



GENMPV: 
/ 

/ 

/ 

/ 



STWMAP: 

/ 

/ 



/ 
/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 

/ 

STWMAP5: 

/ 

/ 



CONT 



JZ 



& AM2901 ,, NOP, PASS, ZQ 

& ENCN SETMPI 

& SPFNOP ; GEN PENDING MEM PROT 

& AM2901 ,, NOP, PASS, ZQ 

& ENCN CLRMPEN 

& SPFNOP ; TURN OFF MP (PAL BUG) 



STWMAP - Format and store WMAP into R4 



CONT 



CONT 



CONT 



CONT 



CJP STWMAP5 



RET 



RET 



& AM2901 MAPX,R4,RAMF,AND,DA 

& SPHNOP 

& IMM H 001F ; MASK EXEC MAP INTO 

R4 
& AM2901 MAPD,R5,RAMA,PASS,DZ 
& SPHNOP 

& L4D ; POSITION DATA1 

& AM2901 ,R5,SRAML,PASS,ZB 
& SHIFT B 0010 
& SPHNOP 
& SPFNOP ; 

& AM2901 R5,R5,RAMF,AND,DA 
& IMM H 03E0 

& SPHNOP ; MASK DATA1 OFF 

& AM2901 R5,R4,RAMF,OR,AB 
& CONDEXT MPEN 
& SPHNOP 

& SPFNOP ; IF MEM PROT ON 

& AM2901 ,R4, NOP, PASS, ZB 
& SPHNOP 

& SPFNOP ; EXIT (DISPLAY WMAP) 

& AM2901 R4,R4,RAMF,OR,DA 
& IMM H 8000 
& SPHNOP ; SET MEM PROT BIT 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



4209 
4210 
4211 
4212 

4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 

4240 
4241 
4242 

4243 

4244 

4245 002CA 

4246 

4247 

4248 

4249 002CB 

4250 

4251 

4252 

4253 

4254 

4255 002CC 

4256 

4257 



DMS Move Instruciton Group 



* 
* 
» 

* Move Words: 

* 

* MW00 - move words from EXECUTE to EXECUTE 

* MW01 - move words from EXECUTE to DATA1 

* MW10 - move words from DATA1 to EXECUTE 

* MW11 - move words from DATA1 to DATA1 

* 

* Move Bytes: 

« 

* 
* 
* 
« 

* Operation: 

* 

* 
* 
* 
* 
* 
« 
« 



MB00 - move bytes from EXECUTE to EXECUTE 
MB01 - move bytes from EXECUTE to DATA1 
MB10 - move bytes from DATA1 to EXECUTE 
MB11 - move bytes from DATA1 to DATA1 



The A register contains the source address. The 
B register contains the destination address. The 
X register contains the word count which can be 
zero. When the instruction completes, A and B 
are incremented by the number of words moved and 
X is zero. These instructions are interruptable. 



movooo: 

/ 

/ 

/ 

/ 
/ 



Movoio: 

/ 

/ 



MW00/MB00 - EXEC TO EXEC 
LDCT M0VBYTE 



JRP M0VW0RD 



& AM2901 MAPX,R7,RAMF,PASS,ZA 

& SPHNOP 

& SPFN0P ; 

& AM2901 MAPX,R8,RAMF,PASS,ZA 

& CONDEXT IR11 

& SPHNOP 

& SPFNOP ; 



MW01/MB01 - EXEC TO DATA1 
LDCT MOVBYTE 



JRP M0VW0RD 



/ 



& AM2901 MAP X.R7.RAMF, PASS, ZA 

& SPHNOP 

& SPFNOP ; 

& AM2901 MAPD,R8,RAMF,PASS,ZA 

& CONDEXT IR11 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

4258 

4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 

4271 
4272 
4273 
4274 
4275 
4276 

4277 
4278 
4279 
4280 

4282 

4283 
4284 

4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 

4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 



ADDR 



002CD 



002CE 



002CF 



002D0 



002D1 



002D2 



002D3 



002D4 



002D5 



002D6 



STATEMENT 

/ 
/ 



& SPHNOP 
4 SPFNOP ; 

MW10/MB10 - DATA1 TO EXEC 



MOV 100: 

/ 

/ 

/ 
/ 
/ 



MOV 110: 

/ 

/ 

/ 
/ 
/ 



LDCT MOVBYTE 



JRP MOVWORD 



& AM2901 MAPD,R7,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; 

& AM2901 MAPX,R8,RAMF,PASS,ZA 

& CONDEXT IR11 

& SPHNOP 

& SPFNOP ; 



MW11/MB11 - DATA1 TO DATA1 
LDCT MOVBYTE 



JRP MOVWORD 



& AM2901 MAPD,R7,RAMF,PASS t ZA 

& SPHNOP 

& SPFNOP ; 

& AM2901 MAPD,R8,RAMF,PASS,ZA 

& CONDEXT IR11 

& SPHNOP 

& SPFNOP ; 



MOVWORD 

This routine performs all the cross map move word instruc- 
tions. At entry R7 is the from map and R8 is the to map. 



MOVWORD: 


LDCT 


LMOVWORD 


& AM2901 f X, NOP, PASS, ZB 


/ 






& LODUSR 


/ 






& SPHNOP 


/ 






& SPFNOP ; ALLOW FOR ZERO COUNT 


LMOVWORD: 


CJP 


DMSEXIT 


& AM2901 , R7, NOP, PASS, ZB 


/ 






& CONDUSR Z 


/ 






& LDAER 


/ 






& SPFNOP ; IF X == 0, EXIT 




CONT 




& AM2901 A, A, RAMA, ADD, ZB 


/ 






& CARRYH 


/ 






& LDMAR 


/ 






& MREAD ; READ WORD 




CONT 




& AM2901 , R8, NOP, PASS, ZB 


/ 






& LDAER 


/ 






& SPFNOP ; 




CONT 




& AM2901 B, B, RAMA, ADD, ZB 


/ 






& CARRYH 


/ 






& LDMAR 


/ 






& SPFNOP ; MAR := TO ADDR 



D-1 02 



A600 BASESET MICROCODE (06/14/82 «A) 



LINE 


ADDR STATEMENT 








4307 








CONT 




& AM2901 , , NOP, PASS, DZ 


4308 


/ 


< 








& LDMDOR 


4309 


002D7 / 


' 








& MWRITE ; 


4310 








JRP 


INTERRPT 


& AM2901 ,X,RAMF,SUBR,ZB 


4311 


/ 


1 








& CARRYH 


4312 


/ 








4 CONDEXT INTRPT 


4313 


/ 








& SPHNOP 


4314 


002D8 / 








& SPFNOP ; REPEAT IF NOT INTERRUPT 


4316 














4317 








MOVBYTE 




4318 














4319 






This routine 


performs all the cross map move byte instruc- 


4320 






tions. 


At entry, R7 is 


the from map and R8 is the to map. 


4321 














4322 


I 


WVBYTE: 


LDCT 


LMOVBYTE 


& AM2901 ,X, NOP, PASS, ZB 


4323 




( 








& LODUSR 


4324 




/ 








& SPHNOP 


4325 


002D9 


/ 








& SPFNOP ; ALLOW FOR ZERO COUNT 


4326 


] 


-MOVBYTE: 


CJP 


DMSEXIT 


& AM2901 , R7, NOP, PASS, ZB 


4327 




/ 








& CONDUSR Z 


4328 




/ 








& LDAER 


4329 


002DA 


/ 








& SPFNOP ; SET FROM MAP 


4330 








CONT 




& AM2901 A,R4,SRAMR,PASS,ZA 


4331 




/ 








& SHIFT ROTATE 


4332 




/ 








& SPHNOP 


4333 


002DB 


/ 








& SPFNOP ; MAKE R4 A WORD ADDRESS 


4334 








CALL 


LDBYTE 


& AM2901 R4.R4, RAMA, PASS, ZB 


4335 




/ 








& LODMSR 


4336 




/ 








& LDMAR 


4337 


002DC 


/ 








& MREAD ; READ WORD CONTAINING BY 


4338 








CONT 




& AM2901 , R8, NOP, PASS, ZB 


4339 




/ 








& LDAER 


4340 


002DD 


/ 








& SPFNOP ; SET TO MAP 


4341 








CALL 


STBYTE 


& AM2901 ,A,RAMF,ADD,ZB 


4342 




/ 








& CARRYH 


4343 




/ 








& SPHNOP 


4344 


002DE 


/ 








& SPFNOP ; INC A (STBYTE INC'S B) 


4345 








JRP 


INTERRPT 


& AM2901 ,X,RAMF,SUBR,ZB 


4346 




/ 








& CARRYH 


4347 




/ 








& CONDEXT INTRPT 


4348 




/ 








& SPHNOP 


4349 


002DF 


/ 








& SPFNOP ; REPEAT IF NOT INTERRUPT 



D-103 



A 600 BASES ET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



4351 
4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 002E0 



4384 
4385 
4386 

4387 
4388 
4389 
4390 
4391 

4392 
4393 
4394 
4395 
4396 



002E1 



002E2 



STATEMENT 



» * 

* .ENTR - RTE Parameter Passing Routine * 

* 



• - Calling Sequence: 

• JSB SUB 

• +— > DEF «+M+1 + 

DEF P[1] 



DEF P[M] 

<RETURN ADDR> < + 



PA RMS EQU » 

BSS N 

SUB NOP + 

JSB .ENTR 

MAR > DEF PA RMS 

PC > 



* 
* 
< + * 



* - Operation: 



* 
* 
__+ « 

* 
« 

* 



- Each DEF is resolved to a true address and moved to * 
the parameter block before the subroutine. • 

* 

- The actual return address is stored in SUB entry * 



- If M >= N then N parameters are passed. 

- If M < N then M parameters are passed. 

- M or N can be zero. 

*****«***»#»**K»*»*lM*««*****»«*»«*»«*««*»»»«*»*«»»*»«*«»»ft* 

CONT 



.ENTR: 
/ 

/ 



/ 

/ 

.ENTR05: JP 

/ 

/ 

/ 
/ 



4 AM2901 ,R4,RAMF,PASS,DZ 
& SPHNOP 

4 IMM H FFFD ; CONST TO LOCATE 

NOP ENT 
CALL .ENTRSUB 4 AM2901 ,, NOP, PASS, ZQ 
4 SPHNOP 

4 MREAD ; RESOLVE PARMS ADDRESS 
.ENTRL 4 AM2901 R7,R8,RAMF,SUBR, AB 
4 CARRYH 
4 LODMSR 
4 SPHNOP 

4 SPFNOP ; R8 == M := RET ADDR - 
JSB RET AD 



.ENTP 
- SAME AS .ENTR EXCEPT TWO WORDS BETWEEN NOP AND JSB .ENTP 



D-104 



A600 BASESET MICROCODE (06/1 4/82 «A) 



LINE 


ADDR STATEMENT 




4397 


• 


ENTP: 


CONT 


4398 


/ 








4399 


002E3 / 








4400 








CALL .ENTRSUB 


4401 


/ 








4402 


002E4 / 


t 






4403 








JP .ENTR05 


4404 


/ 


t 






4405 


002E5 / 


f 






4406 










4407 








.ENTN 


4408 










4409 






- SAME 


AS .ENTR EXCEPT 


4410 






CALLERS JSB 


4411 










4412 


• 


ENTN: 


CONT 


4413 


/ 


i 






4414 


002E6 , 


t 






4415 








CALL .ENTRSUB 


4416 


t 


i 






4417 


002E7 


( 






4418 




.ENTN05: 


CONT 


4419 


t 


/ 






4420 


i 


/ 






4421 


002E8 


/ 






4422 








JP .ENTRL1 


4423 




( 






4424 




/ 






4425 


002E9 


/ 






4426 










4427 








.ENTC 


4428 










4429 






- SAME 


AS .ENTP EXCEPT 


4430 






CALLERS JSB 


4431 










4432 




.ENTC: 


CONT 


4433 




/ 






4434 


002EA 


/ 






4435 








CALL .ENTRSUB 


4436 




/ 






4437 


002EB 


/ 






4438 








CONT 


4439 




/ 






4440 


002EC 


/ 






4441 








JP .ENTN05 



& AM2901 ,R4,RAMF,PASS,DZ 

& SPHNOP 

4 IMM H FFFB ; CONST TO LOCATE 

NOP ENT 
& AM2901 ,, NOP, PASS, ZQ 
& SPHNOP 

& MREAD ; RESOLVE PARMS ADDRESS 

& AM2901 R8,A,RAMF,PASS,ZA 
& SPHNOP 
& SPFNOP ; A := RETURN ADDRESS 



NO DEF TO RETURN ADDR AFTER 



& AM2901 ,R4,RAMF,PASS,DZ 

& SPHNOP 

& IMM H FFFD ; CONSTANT TO LOCATE 

ENTR 
& AM2901 ,, NOP, PASS, ZQ 
& SPHNOP 

& MREAD ; RESOLVE PARMS ADDRESS 

& AM2901 R6,R8,RAMF,PASS,ZA 
& LODMSR 
& SPHNOP 

& SPFNOP ; SET M := N 

& AM2901 R7,R6,NOP,ADD,AB 
& CARRYL 
& LDMDOR 

& MWRITE ; RET ADDR := WORD AFTER 
JSB + N 



NO DEF TO RETURN ADDR AFTER 



& AM2901 ,R4,RAMF,PASS,DZ 

& SPHNOP 

& IMM H FFFB ; CONSTANT TO LOCATE 

ENTR 
& AM2901 ,, NOP, PASS, ZQ 
& SPHNOP 

& MREAD ; RESOLVE PARMS ADDRESS 

& AM2901 R7,A,RAMF,PASS,ZA 
& SPHNOP 
& SPFNOP ; 
& AM2901 R6,A,RAMF,ADD,AB 
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LINE 



ADDR 



STATEMENT 



4442 

4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 

4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 

4483 
4484 
4485 
4486 
4487 
4488 
4489 



002ED 



002EE 



002EF 



002F0 



002F1 



002F2 



002F3 



002F4 
002F5 
002F6 



/ 

/ 
/ 



4 CARRYL 
& SPHNOP 
& SPFNOP 



A := RETURN ADDRESS 



.ENTX PARM MOVE LOOP 



.ENTRL: CONT 

/ 

/ 

/ 

.ENTRL1: CJP 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 

/ 
/ 

/ 
/ 
/ 
/ 



SKIP 



CALL WRTIND 



CJP SKIP 



CONT 



JP 



.ENTRL1 



AM2901 
CARRYH 
SPHNOP 
SPFNOP 
AM2901 
CARRYH 
CONDMSR 
LDMAR 
MREAD ; 
AM2901 
4 CARRYH 
& LODMSR 
4 SPHNOP 
SPFNOP 
AM2901 
CARRYH 
& CONDMSR 
& LDMAR 
4 SPFNOP 
& AM2901 
LDMDOR 
MWRITE 
AM2901 
CARRYH 
LODMSR 
SPHNOP 
SPFNOP 



,R7,RAMF,ADD,ZB 



4 
& 
4 



4 
& 
4 
& 
& 
& 
& 



; SKIP DEF TO RET ADDR 
R7.R7, RAMA, ADD, ZB 



IF END OF PEN] LIST 
,R6,RAMF,SUBR,ZB 



; N := N - 1; 

R5.R5, RAMA, ADD, ZB 

SIGN 

; IF END OF PARMS LIST 

,, NOP, PASS, ZQ 

; PARMSCY] := RESOLVED AD 
,R8,RAMF,SUBR,ZB 



M := M - 1 



.ENTR/.ENTP SETUP SUBROUTINE 



.ENTRSUB: CONT 

/ 

/ 

/ 



4 AM2901 PC,R4,RAMF,ADD,AB 
4 CARRYL 
& LDMAR 



& SPFNOP 



R4 



SUB ENTRY POINT 



/ 
/ 

/ 
/ 



CONT 



CONT 



CONT 



4 AM2901 TAB, R5.RAMF, PASS, DZ 

4 SPHNOP 

4 MREAD ; R5 := ADDR OF PARMS BLO 

4 AM2901 R5,R6,RAMF,PASS,ZA 

4 SPHNOP 

4 SPFNOP ; R6 WILL BE N 

4 AM2901 TAB, R7.RAMF, PASS, DZ 

4 LDMAR 
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LINE 


ADDR 


STATEMENT 




4490 


002F7 


/ 




4491 






CONT 


4492 




/ 




4493 




/ 




4494 


002F8 


/ 




4495 






RET 


4496 




/ 




4497 


002F9 


/ 




4498 








4499 






SAVEAB - CC 


4500 








4501 




SAVEAB: 


CONT 


4502 




/ 




4503 


002FA 


/ 




4504 






RET 


4505 




/ 




4506 


002FB 


/ 




4507 








4508 






FILL AREA 


4509 








4510 




IF 


FILL 


4514 




LIST 




4515 




ENDIF 




4517 








4518 






PATCH AREA 


4519 








4520 


00300 




ORG 768 


4521 


00300 


* 
t 




4522 




LIST 




4523 




• 
t 





& MREAD ; R7 := ADDR OF WRD AFTER 

JSB 
& AM2901 R4.R6, RAMA, SUBS, AB 
& CARRYH 
& LDMAR 
& SPFNOP ; R6 == N := ADDR (SUB) - 

ADDR(PARM 
& AM2901 TAB, R8.RAMF, PASS, DZ 
& LDMDOR 
& MWRITE ; STORE ACTUAL RETURN ADD 



& AM2901 A,R6,RAMF,PASS,ZA 

& SPHNOP 

4 SPFNOP ; 

& AM2901 B,R7,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; 
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LINE ADDR STATEMENT 



4525 

4526 

4 527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4 543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4 555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4 569 

4 570 

4571 

4572 



I A Register j B Register | 

|L!0 O; VMA Seg it \ PTE Index i Log Page Offset ! 

- L is local reference bit. If L is set, then B register is 
normal address. Simply resolve B for indirects and return 
address in B. 

- The PTE index is an index into a table of VMA pages. The page 
number of this table is contained in location 5. Access to the 
PTE table is by reading loc 5, loading contents into reg 31 of 
MAPX, then using 01 1 1 1 1B as the upper bits of an address and 
the PTE Index as the lower bits. 



- The PTE table entries can have three forms: 



VMA Microcode Routines » 

* 
- VMA pointer: # 

* 
» 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
» 
* 
* 
» 
* 
» 
» 
* 
* 
« 
* 
* 
* 
* 
* 
« 
* 
* 

* 

* 

» 

»* 



Case A 



Case B 



Case C 




i — i — i — i — i — i — i- 

! VMA suit i Page offset 



i 

i 



-i — i — i — i — ■ — ■ — i — i — i 



t— +-+-H 



-I 1 — I — I — I — I — I — I — I — I — I — I — I — I 

I VMA suit 10 00000000 0| 
+-+-+■—•—+-+-+-+-+-+-.+-+-+-+-+-+-+ 



II 1 1 1 1 1|0 



I — -I — I — + — I — + 

00000000 0i 

I — I — ■ — I — I — •- 



Circumstance 
Normal 

Last+1 VMA page 

Fault 



When a PTE entry is case A, normal VMA operation proceeds. 
The PTE case B entry is indicated by a Page offset 
field of all zeros and a VMA suit of not all ones. 
In this case, the page is the last+1 VMA page which can 
be mapped, but not accessed. The PTE case C entry is 
indicated by a Page offset of all zeros and a VMA suit 
of all ones. In this case, the VMA page is not in memory 
and a page fault error is generated. 
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LINE 



ADDR 



STATEMENT 



4574 

4575 

4 576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4 603 
4604 

4605 

4606 

4607 

4 608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 



00300 

00301 

00302 



00303 
00304 
00305 



ft*********************************************************** 
« • 

* .LBPR - Load and map VMA pointer * 

» » 

« 
* 



* - Calling Sequence: 

* 



JSB .LBPR 
DEF POINTER 



* 
* 
* 



» - Resolves pointer, double loads A 4 B and performs .LBP * 
• * 



/ 

/ 

/ 
/ 

/ 
/ 



CALL DL0AD 



.LBPR: CALL SAVEAB & AM2901 , .NOP.PASS, ZQ 

& SPHNOP 

& SPFNOP ; COPY A-B TO R6-R7 

& AM2901 PC,R10,RAMF,PASS,ZA 
& SPHNOP 

& MREAD ; SAVE PC FOR FAULT 

JP VMAMAP & AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 
& SPFNOP ; 



ft*««**Mft*«*»»***ft«***»»»****M*»*»ft****»**ft«******»»*****»* 
* * 

» .LPX - Add offset to VMA pointer and map 



* - Calling Sequence: 

* 

* DLD VMA_POINTER 
« JSB .LPX 
« DEF OFFSET 

* 

« - Resolve offset, double integer add to A&B, perform .LBP* 
« * 



.LPXO: CALL SAVEAB 

/ 

/ 

.LPX01: CALL WRTIND 

/ 

/ 



CALL DADD 



/ 
/ 



JP 



VMAMAP 



& AM2901 PC,R10,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; COPY A/B TO R6/R7 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& MREAD ; RESOLVE OFFSET 

& AM2901 ,, NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; READ AND ADD OFFSET 

& AM2901 ,PC,RAMF,ADD,ZB 

& CARRYH 
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LINE ADDR STATEMENT 



4623 

4624 

4625 

4626 

4627 

4628 

4 629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4 646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 



00306 



00307 



00308 



00309 



/ 

/ 



4 SPHNOP 
& SPFNOP ; 



INC PC PAST DEF 



* » 

» .LPXR - Load VMA pointer, add offset and map » 

* « 

* 
« 
* 

* 
» 

« 
» 

* - Note: OFFSET may NOT address A or B « 

* » 
«*»«*»«ft»*«»ftft»«»«ft»»**«*tt»*ft»»««**««ft«*ft«ft»ft»««ft»«»«* **»«»« 



* - Calling Sequence: 

» 

* JSB .LPXR 

* DEF POINTER 

* DEF OFFSET 

» 

* - Resolve pointer, double load A 4 B, resolve offset, 

* and double add offset. 

» 



.LPXR: CALL SAVEAB 

/ 

/ 



/ 
/ 

/ 
/ 



CALL DL0AD 



JP 



.LPX01 



4 AM2901 , , NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; COPY A-B TO R6-R7 

4 AM2901 PC,R10,RAMF,PASS,ZA 

4 SPHNOP 

4 MREAD ; SAVE PC FOR FAULT 

4 AM2901 ,, NOP, PASS, ZQ 

4 SPHNOP 

4 SPFNOP ; JUST LIKE .LPX NOW 



003 OA 



«»ftft«ftft**ft*ft«ftftft«*«»«»«ft«ftft**»»*»«»«*««*ftto«««»«»«ft«*ft»**»* 
» « 

* .LBP - Map VMA pointer in A/B to logical address * 

* « 

* -At entry, A and B contain the VMA pointer. » 
« » 

«ft««ft*»ftftftft«*«ft»*»«»ft«*«ft*ftft«ftftftftft««ftftft«»ft««««»*««*ftftft*«ftft*» 



.LBPO: CALL SAVEAB 4 AM2901 PC,R10,RAMF,PASS, ZA 

/ 4 SPHNOP 

/ 4 SPFNOP ; COPY A/B TO R6/R7 
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LINE 


ADDR STATEMENT 






4665 












4666 






»**»*»ft«**»«*»tt»**»*«»*»««»«*»»»*«»«****«*»*** »*•*»»*****«• 


4667 










* 


4668 








VMAMAP - Perform 


VMA mapping function * 


4669 










* 


4670 






- If A(15) is set, then 


this is a local reference. The * 


4 671 






B reg is resolved and 


microcode exits. * 


4672 










* 


4673 






»««*««*«**«»»*»****»*«*«**•*»«*«#»»***«»***«»«*»****»**»**« 


4674 












4675 


VMAMAP: 


CONT 


& AM2901 ,A,NOP,PASS,ZB 


4676 


/ 


t 






& LODUSR 


4677 


/ 


/ 






& SPHNOP 


4678 


0030B / 


f 






& SPFNOP ; TEST FOR LOCAL REF 


4679 








CJP VMAMAP01 


& AM2901 ,, NOP, PASS, ZQ 


4680 


i 


/ 






4 CONDUSR NSIGN 


4681 


i 


f 






& SPHNOP 


4682 


0030C , 


I 






& SPFNOP ; IF NOT LOCAL REFERENCE 


4683 








CALL MRGIND 


& AM2901 ,B,QREG,PASS,ZB 


4684 


i 


1 






& LODUSR 


4685 


i 


t 






& LDMAR 


4686 


003 OD 


t 






& MREAD ; 


4687 








JZ 


& AM2901 ,B,RAMF,PASS,ZQ 


4688 


i 


/ 






& SPHNOP 


4689 


0030E 


f 






& IF ETCH ; 


4690 


VMAMAP01: 


CONT 


& AM2901 ,Y,RAMF,PASS,DZ 


4691 




f 






& IMM H 7800 


4692 


0030F 


1 






& SPHNOP ; Y := PAGE 30 & LOGICAL 
ADDR OF 


4693 








CALL GETPTE 


& AM2901 ,B,QREG,PASS,ZB 


4694 




1 






& RSTMSR & ENBLO 


4695 




! 






4 SPHNOP 


4696 


00310 


/ 






& SPFNOP ; GET PAGE OF PTE 


4697 












4698 








BUILD PAGEID IN 


X 


4699 












4700 








PUSH H 005 


& AM2901 A.X.RAMF.PASS.ZA 


4701 




/ 






& SPHNOP 


4702 


00311 


/ 






& SPFNOP ; SHIFT VMA POINTER LEFT 


4703 








RFCT 


4 AM2901 .X.SRAMQL.PASS.ZB 


4704 




/ 






4 SHIFT B 0110 


4705 




/ 






4 SPHNOP 


4706 


00312 


/ 






4 SPFNOP ; X := PAGE ID 


4707 








CALL PTELKUP 


4 AM2901 ,, NOP, PASS, ZQ 


4708 




/ 






4 SPHNOP 


4709 


00313 


/ 






4 SPFNOP ; LOOKUP PAGE IN PTE 


4710 








CONT 


4 AM2901 ,Y,RAMF,PASS,DZ 


4711 




/ 






4 IMM H 7C00 


4712 


00314 


/ 






4 LDMAR ; Y := PAGE 31 
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LINE 



ADDR 



STATEMENT 



4713 

4714 
4715 
4716 
4717 
4718 
4719 

4720 
4721 
4722 

4723 
4724 
4725 
4726 

4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4 754 
4755 



00315 



00316 



00317 



00318 



/ 
/ 
/ 

/ 
/ 



/ 
/ 

/ 
/ 
/ 



CALL PTELKUP 



CONT 



CONT 



JZ 



& AM2901 ,X,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; INC PAGID 

& AM2901 B,B,RAMF,NOTRS,DA 

& IMM H FCOO 

& SPHNOP ; MASK OFF LOGICAL OFFSET 

IN PAGE 
& AM2901 B,B,RAMF,0R,DA 
& SPHNOP 

& IMM H 7800 ; RETURN VMA ADDR IN B 
& AM2901 ,PC,NOP,SUBR,ZB 
& CARRYH 
& LDMAR 
& IF ETCH ; 



«**«ft«»»*»*«»«««ft«*»«*»ft«*»««»«»»««*ft«««ft»««ftft*ft«ft»ftft»ftft«ft»ft 

* * 

* .PMAP - PAGE MAP * 
» » 

* - Calling Sequence: * 

* ft 

* LDA REG# IN MAP X « 

* LDB PAGE_ID • 
« JSB .PMAP « 
» <ERROR RETURN> * 

* <NORMAL RETURN> * 
ft « 

* - Used to load arbitrary map reg in MAPX for VMA * 
ft « 

* - A reg contains page reg in MAPX to load. B reg contains* 

* same VMA page_id as bits 25-10 of VMA pointer. * 
« « 

* - Perform VMA lookup as in .LBP. If fault and A15 == 1 * 

* then take <error return>. If successful lookup, then * 

* load page reg in MAPX, inc A & B & take <normal ret>. * 
« » 

« 
» 
« 
» 
•«ft»ftftft»*«ft«ft«ft»«ftftftft»*»«*«ft*«ftft»ft«»ft**ftft»«««««»ft«ftft«»««««tt* 



* - reg is set to 1 

» 

* - E reg set if to 1 if last+1 page mapped 

* 
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LINE 

4756 

4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 

4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 



ADDR 
00319 

003 U 
0031B 



STATEMENT 



.PMAPO: 



0031c 

0031D 
0031E 

003 1F 

00320 



00321 



00322 



/ 

/ 

/ 
/ 
/ 

/ 
/ 



/ 

/ 

/ 

/ 
/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



CONT 



CALL GETPTE 



CALL PTELKUP 



& AM2901 ,Y,RAMF,PASS,DZ 

& IMM H 7C00 

& SPHNOP ; USE PAGE 31 FOR PTE 

& AM2901 PC,R10,RAMF,PASS,ZA 

& SETMSR & ENBLO 

& SPHNOP 

& SPFNOP ; SET REG 

& AM2901 B,X,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; 



POSITION MAP REGISTER NUMBER 



PUSH H 005 



RFCT 



CALL PTELKUPX 



CONT 



JP 



SKIP 



& AM2901 A,R7,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; ROTATE PAGE NUM RIGHT 6 

& AM2901 ,R7,SRAMR,PASS,ZB 

& SHIFT ROTATE 

& SPHNOP 

& SPFNOP ; 

& AM2901 , R7, NOP, PASS, ZB 

& LEMAR 

& SPFNOP ;PAG NUM TO MAR, MAP WRIT 

& AM2901 ,B,RAMF,ADD,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; INC B 

& AM2901 ,A,RAMF,ADD, ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; INC A 



* « 

* .IRES - Perform single int subscript calculation * 

* * 

.IRES: CALL IRES01 & AM2901 PC,R10,RAMF,PASS, ZA 

/ & SPHNOP 

/ & SPFNOP ; PERFORM CALC 

JZ & AM2901 R8,PC,RAMA,ADD,ZA 

/ & CARRYH 

/ & LDMAR 

/ & IF ETCH ; 
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LINE 

4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 

4820 
4821 
4822 
4823 
4824 
4 825 
4826 
4827 
4828 
4829 
4830 
4831 
4 832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 



ADDR 



00323 
00324 

00325 



00326 
00327 
00328 



STATEMENT 



««*ft*»****«*****X»*«*»**»*»***»«**»*»*«****«*»*»»«***f *«*»*« 

» » 



* .IMAP - Perform subscript calculation and map result * 

» * 



.IMAP: 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



CALL SAVEAB 



CALL IRES01 



JP VMAMAP 



& AM2901 , , NOP, PASS, ZQ 

& SPHNOP 

& SPFNOP ; SAVE ORIGINAL A/B 

& AM2901 PC,R10,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; PERFORM CALC 

& AM2901 R8,PC,RAMF,ADD,ZA 

& CARRYH 

& SPHNOP 

& SPFNOP ; INC PC, MAP VMA POINTER 



* 
» 

* 
* 
* 

* 

- X reg is set to the PAGID of the page not in the PTE. * 

» 

* 
« 
* 
* 

«*****tt*ft»*****«**«**ft*«**«*X*ft******ft**»ft«*»»*ft****»»*»»*» 



VMAFAULT 

- VMA page fault handler. This routine is common 
to .LBP, .IMAP and .PMAP. Note that .PMAP must 
take a error return if A(15) is set. 



- Y reg is set to the logical address of the PTE. 

- Perform a JSB indirect thru location $VMA$ (VMALOC). 



RESTORE PC TO VALUE AT ENTRY TO VMA 
- TEST FOR PMAP SPECIAL HANDLING 
VMAFAULT: CJP VMAFPMAP & AM2901 R10,PC,RAMF,PASS, ZA 



/ 

/ 
/ 

/ 
/ 

/ 
/ 



CONT 



CONT 



& CONDMSR OVR 

& SPHNOP 

& SPFNOP ; RESTORE PC TO ENTRY VAL 

& AM2901 R6,A,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; RESTORE A AND B 

& AM2901 R7,B,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP ; 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

4851 
4852 
4853 
4854 

4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 

4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 

4894 
4895 
4896 



ADDR 



00329 



0032A 



0032B 
0032C 
0032D 
0032E 



0032F 
00330 
00331 

00332 



CONT 



STATEMENT 

VMAFAUL1: CONT 

/ 

/ 

/ 
/ 
/ 

/ 
/ 



& AM2901 ,, NOP, PASS, DZ 

& IMM VMALOC 

& LDMAR ; 

& AM2901 ,PC,RAMF,SUBR,ZB 

& CARRYH 





& SPHNOP 




& MREAD ; READ CONTENTS OF $VMA$ 


JP JSBIVMA 


& AM2901 ,,QREG,PASS,DZ 




& LDMAR 




4 MREAD ; MAR := ($VMA$) 


FILLER 




FILLER 




FILLER 





GETPTE - GET PTE ADDRESS 

- At entry: Y - Logical address of PTE 

-Get PAGE TABLE page number from VMAPTE in map 
and load it into map reg number indicated by Y 

-If the sign bit is set on the word read from 
memory, then VMA has not been initialized 
and a page fault is generated. 

• *ft*«ft***«»«»ft*»**OiM***««ft**ft*ft»ft*»***«ftft»*»»ft*»***»»»** 



GETPTE: 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 



/ 
/ 



CONT 



CONT 



CONT 



CONT 



CRET 



& AM2901 ,, NOP, PASS, DZ 

& IMM VMAPTE 

& LDMAR JREAD PTE PG FROM MAP ZERO 

& AM2901 ,,N0P,AND,ZQ 

& LDAER 

& MREAD ; 

& AM2901 MAPX.R5, RAMA, PASS, DZ 

& LDAER 

& IMM H 8000 ; PUT MAPX BACK 

& AM2901 Y.R12, RAMA, PASS, DZ 

& LODUSR 

& LDMAR 

& SPFNOP ; R12 := PTE PAGE, MAR := 

PTE AD 
& AM2901 R5,R12,RAMF,NOTRS,AB 
& CONDUSR NSIGN 
& SPWR MAPWR 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

4897 

4898 
4899 
4900 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 

4923 
4924 

4925 
4926 
4927 
4928 
4929 
4930 

4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4 939 
4940 
4941 
4942 
4943 
4944 
4945 



ADDR 
00333 

00334 



STATEMENT 
/ 



00335 

00336 
00337 
00338 
00339 



/ 
/ 



4 SPFNOP ; IF SIGN SET, VMA NOT 
INITIALI 
JP VMAFAULT & AM2901 R5.Y, RAMF.OR.AB 

4 SPHNOP 
4 SPFNOP ; SET SIGN IN Y 



« * 

* PTELKUP - Lookup page in PTE * 

* » 

* - At entry: » 

* * 

* X Page ID » 

« R12 - PTE page number « 

» Y & MAR - Logical address of PTE (4 map reg to update) * 
» * 

* 

* 

* 

« 

_^ ________ * 

» » 

»*«*»*»*«»**»«*«***««*«*«*»«*»«*»«*»«JM**«*««»«**»*»***X»*ft* 



* - At exit: 

» 

* R8 - VMA Page loaded into map register 

* E - Set if last+1 page. Clear otherwise 

* Map register updated 



PTELKUP: CONT & AM2901 , R1 1, RAMF.PASS.DZ 

/ & SPHNOP 

/ & IMM H FC00 ; CONSTANT 

CONT & AM2901 , R12.NOP, PASS, ZB 

/ & RSTMSR & ENBLC 

/ & SPWR MAPWR 
/ & SPFNOP ; CLEAR E, SET PAGE TO ACCESS PT 

CONT & AM2901 X,R5,RAMF,NOTRS,DA 

/ & SPHNOP 

/ & IMM H FCOO ; ISOLATE PTE OFFSET 

CONT & AM2901 Y,R5,NOP,OR,AB 

/ 4 LDMAR 

/ 4 MREAD ; INDEX INTO PTE 

CONT 4 AM2901 X,R5,RAMF,AND,DA 

/ 4 SPHNOP 

/ 4 IMM H FCOO ;ISOLATE VMA SEG NUMB 



DETERMINE WHICH PTE ENTRY CASE IS THIS? 

Algorithm is: 

1. Test for 1 1 1 1110000000000B. If same, then fault. 

2. Test for VMA suit match. If not same then fault. 

3. Test for page offset from PTE of zero. 

If zero, then last+1 page case and map 077777Q 
else perform normal mapping 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 

4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 

4963 
4964 

4965 
4966 

4967 
4968 
4969 
4970 
4971 
4972 

4973 
4974 

4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 

4985 
4986 
4987 
4988 
4989 



0033A 



0033B 



0033C 



0033D 



0033E 



0033F 



00340 



00341 



00342 



/ 
/ 

/ 

/ 
/ 



/ 

/ 
/ 

/ 

/ 
/ 



/ 
/ 
/ 

/ 

/ 

/ 

/ 

PTELKUPX: RET 

/ 

/ 



CONT & AM2901 ,,QREG,PASS,DZ 

& SPHNOP 

& SPFNOP ; Q := (PTE ENTRY) 

CONT & AM2901 R11,,NOP,EXOR,AQ 

& LODUSR 

& SPHNOP 

& SPFNOP ; TEST FOR 

1111110000000000 ENTRY 

MASK OFF VMA SUIT NUMBER 

CJP VMAFAULT & AM2901 R1 1,R9,RAMF,AND, AQ 

& CONDUSR Z 

& SPHNOP 

& SPFNOP ;IF NOT THEIR ENTRY, FAULT 
CONT & AM2901 R5.R9,NOP,EXOR,AB 

& LODUSR 

& SPHNOP 

& SPFNOP ; COMPARE VMA SUIT 

MASK OFF PTE PAGE OFFSET 

CJP VMAFAULT 4 AM2901 R1 1, R8.RAMF.NOTRS, AQ 
& CONDUSR NZ 
& SPHNOP 

& SPFNOP ; IF NOT SAME THEN FAULT 
& AM2901 R12,R8,RAMF,ADD,AB 
& CARRYL 
& CONDUSR Z 
& SPHNOP 

& SPFNOP ; IF OFFSET IS ZERO 

& AM2901 , R8, NOP, PASS, ZB 
& SPWR MAPWR 
& SPFNOP ; PUT PAGE INTO MAPX REG 



CJP PTELKUP5 



MAP LAST+1 PAGE TO 077777B 



PTELKUP5: CONT 

/ 

/ 

RET 
/ 
/ 
/ 



& AM2901 ,R8,RAMF,PASS,DZ 

& SPHNOP 

& IMM H 7FFF ; 

& AM2901 , R8, NOP, PASS, ZB 

& SETMSR & ENBLC 

& SPWR MAPWR 

& SPFNOP ; 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



STATEMENT 



4991 
4992 

4993 
4 994 

4 995 
4996 
4997 
4 998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 

5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 

5025 
5026 
5027 
5028 
5029 
5030 

5031 
5032 

5033 
5034 
5035 
5036 
5037 
5038 



00343 



00344 



00345 
00346 



ft*********************************************************** 



.IRES01 - Calculate subscripted array address 



* -Calling Sequence: 

» 



* JSB 

* DEF 

* DEF 

* DEF 

* 

* 

* 
• 

* DEF 

* DEF 

« 

* 
* 

* 

* 
« 

< 
* 
« 

* 

* 



.IRES/.IMAP 

DOPE VECTOR > DEC N 



# DIMENSIONS 



An SUBSCRIPT N 
An-1 SUBSCRIPT N-1 



A2 SUBSCRIPT 2 
A1 SUBSCRIPT 1 



DEC Dn-1 DIMENSION N-1 
DEC Dn-2 DIMENSION N-2 



-Calculation for B(A1 ,A2,A3,A4) is: 



ft 
* 
> 
* 

* 
* 
* 

* 
* 
« 

DEC D1 DIMENSION 1 * 
DEC E # WORDS PER ELEMENT* 
OCT UPPER HALF OF OFFSET * 
OCT LOWER HALF OF OFFSET * 

ft 

ft 

» 



offset(B) + E • {A1 + D1*[A2 + D2*[A3 + D3*[A4 +0]]]} * 

* 
« 

-Notes: * 

- Subscripts are sign extended to 32 bits * 

- If a dimension is zero, it is really 2**16 * 

- Calculation is accumulated in A and B * 

- It is possible for # dimensions (N) to be zero * 

- DEF'S can NOT be A/B addressable * 

« 

»»«*»ft»*»»««*ft*«ftft»ft«ft«ftftft»«»«ft««ft«ft*«ftft«*ft««ft««*ft«ft««««ft«»» 



IRES01: 

/ 

/ 

/ 
/ 
/ 



/ 

/ 
/ 

/ 
/ 

IRES04: 



CALL WRTIND 



CONT 



CONT 



CONT 



CONT 



& AM2901 PC,R8,RAMF,PASS,ZA 

& SPHNOP 

& MREAD ; RESOLVE DOPE VECTOR 

& AM2901 ,R12,RAMF,ADD,ZQ 

& CARRYH 

& SPHNOP 

& SPFNOP ; R12 -> 1ST DIM IN DOPE 

VECTOR 
& AM2901 ,R11,RAMF,PASS,DZ 
& LODMSR 
& SPHNOP 

& SPFNOP ; R11 := # DIMENSIONS 

& AM2901 ,B,RAMF,AND,ZB 
& SPHNOP 

& SPFNOP ; ZERO ACCUMULATOR 

& AM2901 ,A,RAMF,AND,ZB 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



STATEMENT 



5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 

5053 
5054 

5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 

5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 

5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 



00347 



/ 

/ 



& SPHNOP 
& SPFNOP ; 



00348 



00349 



003 4A 



003 4B 



0034C 



003 4D 



0034E 



ITERATION LOOP 



- SIGN EXTEND SUBSCRIPT AND ADD TO ACCUMULATOR 

- MULTIPLY BY DIMENSION 



IRES05: 


CJP 


IRES80 


& AM2901 ,, NOP, PASS, ZQ 


/ 






& CONDMSR Z 


/ 






& SPHNOP 


/ 






& SPFNOP ; IF LAST DIMENSION 




CALL 


WRTIND 


& AM2901 R8, R8, RAMA, ADD, ZB 


/ 






& CARRYH 


/ 






& LDMAR 


/ 






& MREAD ; READ SUBSCRIPT 




CONT 




& AM2901 ,,QREG,PASS,DZ 


/ 






& LOEMSR 


/ 






& SPHNOP 


/ 






& SPFNOP; Q := SUBSCRIPT 




CJP 


IRES10 


& AM2901 R12,R12,RAMA,ADD,ZB 


/ 






& CARRYH 


/ 






& CONEMSR NSIGN 


/ 






& LEMAR 


/ 






& MREAD ; READ DIMENSION, IF 

SUBSCRIPT >= 



A NEGATIVE SUBSCRIPT MUST BE SIGN EXTENDED 

- This implies a word of all 1 'S (H FFFF) MUST be added 
to the most significant word of the accumulator to 
extend the sign of the subscript to 32 bits. 



CONT 



/ 
/ 

/ 



IRES10: 

/ 
/ 
/ 
/ 

/ 
/ 
/ 



& AM2901 ,A,RAMF,SUBR,ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; MSB := MSB + H FFFF 



ADD SUBSCRIPT TO ACCUMULATOR 
CONT 



CONT 



& AM2901 B.B.RAMF.ADD.AQ 

& CARRYL 

& LODUSR 

& SPHNOP 

& SPFNOP ; LSB := LSB + SUBSCRIPT 

& AM2901 ,A,RAMF,ADD,ZB 

& CARRYUC 

& SPHNOP 

& SPFNOP ; ADD CARRY OUT TO MSB 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

5087 
5088 
5089 
5090 
5091 
5092 

5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 

5119 
5120 

5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 



ADDR 



STATEMENT 



003 4F 



00350 



00351 



00352 
00353 
00354 



00355 



/ 
/ 
/ 



/ 
/ 
/ 



/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 

/ 

/ 



LDCT H OOF 



& AM2901 , ,QREG,PASS,DZ 

& LODMSR 

& SPHNOP 

& SPFNOP ; Q : = 



MULTIPLY ACCUMULATOR BY DIMENSION 
- Unsigned multiply. 



DIMENSION 



- Algorithm is: 

R5 4 Q 

B 

R5 & Q 

CJP IRES50 



■ B * DIMENSION 

: Q 

: A * DIMENSION + R5 

& AM2901 B,R4,RAMF,PASS,ZA 

& CONEMSR Z 

& SPHNOP 

& SPFNOP ; IF DIMENSION ZERO 



THE FOLLOWING PUSH MUST NOT LOAD COUNTER 



CPUSH 



RFCT 



CONT 



LDCT H OOF 



& AM2901 ,R5,SRAMQR,AND,ZB 

& CONDMSR Z 

& SHIFT B 0110 

& SPHNOP 

& SPFNOP ; R5 := 0, QO BUF := QO 

& AM2901 MPY4,R5,SRAMQR,ADD,AB 

& CARRYL 

& SHIFT B 1011 

& SPHNOP 

& SPFNOP ; UNSIGNED MULTIPLY 

& AM2901 ,B,RAMF,PASS,ZQ 

& SPHNOP 

& SPFNOP ; LOW WORD DONE 

& AM2901 ,,QREG,PASS,DZ 

& SPHNOP 

& SPFNOP ; Q := DIMENSION 



THE FOLLOWING PUSH MUST NOT LOAD THE COUNTER 
-NOTE:R5 is a partial product that must be added, UNSHIFTED! 



CPUSH 



/ 
/ 
/ 

/ 



RFCT 



& AM2901 ,R9,SRAMQR,PASS,ZB 

& CONEMSR Z 

& SHIFT B 0110 

& SPHNOP 

& SPFNOP ; SET QO BUF, NEVER PUSH 

& AM2901 MPY,R5,SRAMQR,ADD,AB 

& CARRYL 
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A600 BASESET MICROCODE (06/1 4/82 *A) 



LINE 

5136 

5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 

5153 
5154 

5155 
5156 
5157 
5158 

5159 
5160 
5161 
5162 
5163 
5164 

5165 
5166 

5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 



ADDR 

00356 
00357 



00358 



00359 
003 5A 



003 5B 



STATEMENT 

/ 
/ 
/ 

/ 
/ 



IRES40: 
/ 

/ 
/ 

/ 



CONT 



& SHIFT B 1011 

& SPHNOP 

& SPFNOP ; 

& AM2901 ,A,RAMF,PASS,ZQ 

& SPHNOP 

& SPFNOP : PUT HIGH WORD IN ACCUM 



DECREMENT NUMBER OF DIMENSIONS 
JP IRES05 



& AM2901 ,R11,RAMF,SUBR,ZB 
& CARRYH 
& LOEMSR 
& SPHNOP 
& SPFNOP ; 



DIMENSION IS ZERO 

- If actual dimension then A&B := A&B * 2**16 

- If number of words/element then A&B := A&B * 
CONT 



IRES50: 
/ 

/ 
/ 

/ 

/ 
/ 



& AM2901 ,R11,RAMF,SUBR,ZB 
& CARRYH 
& LODMSR 
& SPHNOP 



& SPFNOP 



DEC 



LDCT IRES05 



& AM2901 B,A,RAMF,PASS,ZA 

& SPHNOP 

& SPFNOP : A := B 



0035C 



/ 
/ 

/ 



IRES80: 

/ 
/ 



IF NUMBER OF WORDS/ELEMENT, ZERO A TOO 

JRP IRES04 & AM2901 , B.RAMF.AND, ZB 

& CONDMSR Z 
& SPHNOP 
& SPFNOP ; B := 

ADD OFFSET TO ACCUMULATOR AND RETURN 

JP DADD & AM2901 ,R12, QREG.PASS, ZB 

& LEMAR 
& MREAD ; READ UPPER WORD OF OFFS 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 

5202 
5203 
5204 
5205 

5207 
5208 
5209 
5210 
5211 
5212 

5213 
5214 

5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 



ADDR STATEMENT 

VMA UTILITIES 

DADD - DOUBLE INTEGER ADD 

COMPUTES: A&B := A&B + <0PERAND> 

Q - Points to operand (MUST be in memory) 

DADD: CONT & AM2901 , ,QREG, ADD, ZQ 

/ & CARRYH 

/ & LDMAR 

0035D / 4 SPFNOP ; 

CONT & AM2901 A.A.RAMF.ADD.DA 

/ & CARRYL 

/ & SPHNOP 

0035E / & MREAD; A := A + MOST SIG WORD 

CONT & AM2901 B.B.RAMF.ADD.DA 

/ & CARRYL 

/ & LODUSR 

/ & SPHNOP 

0035F / & MREAD ; FREEZE, B := B + LEAST 

SIG WORD 

RET & AM2901 ,A,RAMF,ADD, ZB 

/ & CARRYUC 

/ & SPHNOP 

00360 / & SPFNOP ; 

Lightning Single Precision Floating Point Microcode 

The operands are manipulated in unpacked format: two words 
of mantissa and one word of (two's complement) exponent. 
The names are: 

1st argument: (XU.XL.XEXP) => result 

2nd argument: (YU.YL.YEXP) scratch: ZU.ZL 



; REGISTER ASSIGNMENTS. 



xu: 


EQU 


RO 


(A) 


XL: 


EQU 


R1 


(B) 


XEXP: 

• 


EQU 


R7 




YU: 


EQU 


R5 




YL: 


EQU 


R8 




YEXP: 


EQU 


R6 





D-1 22 



A600 BASESET MICROCODE (06/14/82 «A) 



LINE 



ADDR 



STATEMENT 



5226 
5227 
5228 
5229 
5230 

5231 
5232 

5233 
5234 

5237 

5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 

5253 
5254 
5255 
5256 

5257 
5258 

5259 

5260 

5261 00361 

5262 

5263 

5264 00362 

5265 

5266 

5267 

5268 

5269 00363 

5270 

5271 

5272 

5273 00364 

5274 

5275 

5276 



ZU: EQU R9 

ZL: EQU R10 



VERIFY CORRECT REGISTERS: YU=DBLIMSB, YEXP=DBLILSB. 



YUERR: SET YU_NE_DBLIMSB 

YXERR: SET YEXP_NE_DBLILSB 

IF YUERRjDRJfXERR 

ENDIF 

* 
* 
« 
* 
* 



•FIX' FLOATING TO SINGLE INTEGER CONVERSION. 
CONVERT (A,B) FROM FLOATING TO INTEGER; A = RESULT. 



IF THE EXPONENT EXCEEDS +15, THE RESULT IS 77777B * 
AND OVERFLOW IS SET. IF THE EXPONENT IS LESS THAN 0, « 

THE RESULT IS ZERO. * 

* 

(Q=0 ALREADY) 

UNPACK. (SEE CALLING SEQ. FOR UNPACK) 

IF XEXP < 0, RESULT = 0. 

XEXP := 15-XEXP 

Q := 

IF XEXP < 0, OVERFLOW. 



FIX: 
/ 

/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 



CALL UNPACK 1 



CONT 



CJP FIXZERO 



CJP FIX2 



& AM2901 B, XEXP, RAMF, PASS, ZA 

& SWAPEO 

& IF ETCH 

& SPHNOP ; 

& AM2901 ,YEXP, RAMF, PASS, DZ 

& IMM H OOOF 

& SPHNOP ; 

& AM2901 YEXP, XEXP, RAMF, SUBS, AB 

& CARRYH 

& CONDLMSR SIGN 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,,QREG,AND,ZQ 

& CONDMSR NSIGN 

& SPFNOP 

& SPHNOP ; 



XEXP < 0: OVERFLOW. A=77777, 0=1. 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

5277 
5278 
5279 
5280 
5281 

5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 

5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 

5311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 



ADDR 



STATEMENT 



00365 



00366 



00367 



00368 



00369 



003 6A 



0036B 



/ 
/ 
/ 
/ 



FIX1: 

/ 

/ 

/ 

/ 

FIX2: 

/ 
/ 

/ 
/ 



JZ 4 AM2901 A,A,SRAMR,EXNOR,AB 

4 SHIFT B 0000 
4 SETMSR & ENBLO 
4 SPFNOP 
4 SPHNOP ; 

FIX! (A,Q) := (A,Q) ARITH RIGHT SHIFT 1 
FIX2 XEXP := XEXP-1 

MZ := (XEXP.EQ.O) 

IF NOT (OLD MZ) GOTO FIX1 

CONT 4 AM2901 ,A,SRAMQR,ADD,ZB 

& CARRYL 

& SHIFT B 1110 

& SPFNOP 

& SPHNOP ; 
CJP FIX1 & AM2901 ,XEXP,RAMF,SUBR,ZB 

4 CARRYH 

4 CONDLMSR NZ 

4 SPFNOP 

4 SPHNOP ; 

DONE SHIFTING. IF VALUE IS NEGATIVE, AND B OR ANY 
BITS WERE SHIFTED INTO Q, ADD ONE TO THE FIXED VALUE. 



0036C 



/ 
/ 
/ 

/ 
/ 
/ 

/ 

/ 
/ 

/ 
/ 
/ 



FIXZERO: 

/ 
/ 



CONT 



CJP FETCH 



CJP FETCH 



JZ 



4 AM2901 ,XU, NOP, PASS, ZB 

4 CONDUSR 

4 SPFNOP 

4 SPHNOP ; 

4 AM2901 B,,NOP,OR,AQ 

4 CONDUSR NSIGN 

4 SPFNOP 

4 SPHNOP ; 

4 AM2901 ,, NOP, PASS, ZQ 

4 CONDUSR Z 

4 SPFNOP 

4 SPHNOP ; 

4 AM2901 ,XU,RAMF,ADD,ZB 

4 CARRYH 

4 SPFNOP 

4 SPHNOP ; 



NEGATIVE EXPONENT, RESULT=0. 
JZ 



4 AM2901 XU,XU,RAMF,EXOR,AB 
4 SPFNOP 
4 SPHNOP ; 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

5325 

5326 

5327 

5328 

5329 

5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

5368 

5369 

5370 

5371 



ADDR 



003 6D 
0036E 

0036F 



00370 



STATEMENT 



* 
•FLT 1 SINGLE INTEGER TO FLOATING-POINT CONVERSION. * 

CONVERT (A) FROM INTEGER TO FLOATING; (A,B) = RESULT. * 

* 

NO UNDERFLOW, OVERFLOW OR ERROR CONDITIONS CAN OCCUR. * 

» 



XU := A (BY DEFINITION) 

XEXP := 15 

XL := 

GO NORMALIZE & PACK. 

CONT & AM2901 , XEXP, RAMF, PASS, DZ 

& IMM H OOOF 

& SPHNOP ; 
CONT & AM2901 XL,XL,RAMF,EXOR,AB 

& SPFNOP 

& SPHNOP ; 
JP NORM & AM2901 ,PC .RAMF.SUBR, ZB 

& CARRYH 

& SPFNOP 

& SPHNOP ; 



FLT: 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



00371 



««******»ft*»«*0»«««»«*«»«**ft*ftft*««*»**»***ft»**»*«ft*»«*«»»* 
•..FCM 1 NEGATE FLOATING-POINT VALUE IN (A,B). 

UNDERFLOW AND OVERFLOW CAN OCCUR. 
*ft**ft«ft»««****»**M«ft**««*ft*ft»«»ft«»ft*»****»*«»ft****ft*»****» 

TEST (A) 

PC := PC - 1 

IF A=0 GOTO SKIP 

..FCM: CONT & AM2901 , A, NOP, PASS, ZB 

/ & SPFNOP 

/ & SPHNOP ; 

CJP SKIP & AM2901 ,PC,RAMF,SUBR,ZB 

/ & CARRYH 

/ & CONDUSR Z 

/ & SPFNOP 

/ & SPHNOP ; 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

5372 

5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 

5383 
5384 
5385 
5386 
5387 
5388 
5389 

5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 

5403 
5404 

5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 

5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 



ADDR 



STATEMENT 



00372 



00373 



00374 



00375 



UNPACK (A,B) TO (XU.XL.XEXP) 

B := - B 

A := - A - BORROW 

GOTO ROUNDO 



(XU=A,XL=B) 



/ 
/ 

/ 

/ 
/ 

/ 

/ 
/ 

/ 



CALL UNPACK 1 



CONT 



JP 



ROUNDO 



& AM2901 B,XEXP,RAMF,PASS,ZA 

& SWAPEO 

4 SPFNOP 

& SPHNOP ; 

4 AM2901 ,B,RAMF,SUBS,ZB 

& CARRYH 

& SPFNOP 

& SPHNOP ; 

& AM2901 .A.RAMF.SUBS.ZB 

& CARRYUC 

4 SPFNOP 

4 SPHNOP ; 



\FSB' FLOATING-POINT SUBTRACT. 

SUBTRACT THE UNPACKED NUMBERS 

(XU.XL.XEXP) - (YU.YL.YEXP) — > (XU.XL.XEXP) 

OVERFLOW AND UNDERFLOW ARE POSSIBLE. THE RESULT 
MAY BE UNNORMALIZED. 

READ SECOND OPERAND FROM MEMRY; UNPACK BOTH OPERANDS. 
YL := -YL 
YU : = -YU - BORROW 
IF OVERFLOW, 

YU := YU RS 1 

YEXP := YEXP + 1 
MERGE INTO .FAD CODE. 



00376 



.FSB: 


CALL 


UNPACK 


4 AM2901 ,, NOP, PASS, ZQ 


/ 






4 SPFNOP 


/ 






4 SPHNOP ; 




CONT 




4 AM2901 .YL.RAMF.SUBS.ZB 


/ 






4 CARRYH 


/ 






4 LODUSR 


/ 






4 SPFNOP 


/ 






4 SPHNOP ; 




CONT 




4 AM2901 ,YU,RAMF,SUBS,ZB 
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A600 BASESET MICROCODE (06/1 4/82 *A) 



LINE 

5421 

5422 

5423 
5424 

5425 
5426 
5427 
5428 
5429 
5430 
5431 
5432 
5433 
5434 
5435 

5437 
5438 

5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5448 

5449 
5450 
5451 
5452 

5453 
5454 

5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 



ADDR 



00377 



00378 



00379 



0037A 



003 7B 



003 7C 



STATEMENT 

/ 

/ 
/ 



/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 
/ 



CJP FADD1 



CONT 



JP 



FADD1 



& CARRYUC 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,, NOP, PASS, ZQ 

& CONDUSR NOVR 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,YU,SRAMR,PASS,ZB 

& SHIFT B 0000 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,YEXP,RAMF,ADD,ZB 

& CARRYH 

& SPFNOP 

& SPHNOP ; 



'.FAD' FLOATING-POINT ADD. 

ADD THE UNPACKED NUMBERS 

(XU.XL.XEXP) + (YU.YL.YEXP) — > (XU.XL.XEXP) 

OVERFLOW AND UNDERFLOW ARE POSSIBLE. THE RESULT 
MAY BE UNNORMALIZED. 

READ SECOND OPERAND FROM MEMRY; UNPACK BOTH OPERANDS. 

.FAD: CALL UNPACK & AM2901 ,, NOP, PASS, ZQ 
/ & SPFNOP 

/ & SPHNOP ; 



ZU := XU 

IF XU=0, SWAP (XU,XL)<=>(YU,YL) & SET XEXP := YEXP 

IF YU=0 THEN DONE. 

Q := (XEXP-YEXP); TEST IT. 



FADD1 : 


CONT 


& AM2901 XU,ZU,RAMF,PASS,ZA 


/ 




& LODMSR 


/ 




& SPFNOP 


/ 




& SPHNOP ; 




CCALL SWAPFARG 


& AM2901 ,YU, NOP, PASS, ZB 


/ 




& CONDLMSR Z 


/ 




& SPFNOP 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 

5468 

5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5481 
5482 
5483 
5484 

5486 
5487 
5488 
5489 
5490 

5491 
5492 

5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 

5503 
5504 
5505 
5506 
5507 
5508 

5509 
5510 
5511 
5512 
5513 
5514 
5515 



ADDR 



0037D 



0037E 



0037F 



00380 



00381 



00382 



STATEMENT 

/ 

/ 
/ 
/ 
/ 



/ 
/ 

/ 



4 SPHNOP ; 
CJP NORM 4 AM2901 YEXP, XEXP, QREG.SUBR.AB 

& CONDLMSR Z 
4 CARRYL 
& SPFNOP 
& SPHNOP ; 



ZL := XL 

IF Q < THEN 

SWAP (XU,XL)<=>(YU,YL) 

XEXP := YEXP 

Q := -Q 



(USING ZU.ZL) 



CCALL SWAPFARG 



& AM2901 XL,ZL,RAMF,PASS,ZA 
& CONEMSR SIGN 
& SPFNOP 
4 SPHNOP ; 



YEXP := Q (SHIFT COUNT); TEST IT. 
TEST (YEXP-25) 
Q := YL 

IF (YEXP-25) >= 0, DONE (SWAMP). 
ELSE GOTO FADD3 (IN COUNTER) 



LDCT 


FADD3 




& AM2901 , YEXP, RAMF, PASS, ZQ 


/ 






& LODMSR 


/ 






& SPFNOP 


/ 






& SPHNOP ; 


CONT 






4 AM2901 YEXP,, NOP, ADD, DA 


/ 






4 CARRYL 


/ 






4 LODUSR 


/ 






4 IMM H FFE7 


/ 






4 SPHNOP ; 


JRP 


NORM 




4 AM2901 .YL.QREG.PASS.ZB 


/ 






4 CONDUSR NSIGN 


/ 






4 SPFNOP 


/ 






4 SPHNOP ; 


• SHIFT 


(YU.Q) 


RIGHT BY (YEXP) BITS: 


; FADD2 


(YU,< 


3) 


:= (YU.Q) RS 1 (ARITHMETIC) 




YEXP 


• ~* 


YEXP - 1 


; FADD3 


IF PREVIOUS YEXP # 0, GOTO FADD2 


FADD2: CONT 






4 AM2901 ,YU,SRAMQR,ADD,ZB 


/ 






4 CARRYL 


/ 






4 SHIFT B 1110 


/ 






4 SPFNOP 
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A600 BASESET MICROCODE (06/14/82 »A) 



LINE 


ADDR STATEMENT 








5516 


00383 / 






& SPHNOP ; 


5517 


FADD3: 


CJP 


FADD2 


& AM2901 ,YEXP,RAMF,SUBR,ZB 


5518 


/ 






& CARRYH 


5519 


/ 






& CONDLMSR NZ 


5520 


/ 






& SPFNOP 


5521 


00384 / 


/ 






& SPHNOP ; 


5523 






(XU.Q 


) := (XU.XL) + (YU,Q) 


5524 






IF OVERFLOW, 




5525 






(XU, 


Q) := (XU.Q) RS 1 


5526 






XEXP := XEXP 


+ 1 


5527 






XL : = 


Q 




5528 






GO NORMALIZE & 


PACK. 


5529 












5530 






CONT 




& AM2901 XL,,QREG,ADD,AQ 


5531 


/ 


I 






& CARRYL 


5532 


/ 


( 






& LODUSR 


5533 


/ 


i 






& SPFNOP 


5534 


00385 


i 






& SPHNOP ; 


5535 






CONT 




& AM2901 YU,XU,RAMF,ADD,AB 


5536 


/ 


i 






& CARRYUC 


5537 


i 


i 






& SPFNOP 


5538 


00386 , 


i 






& SPHNOP ; 


5539 






CJP 


FADD4 


& AM2901 ,, NOP, PASS, ZQ 


5540 


i 


i 






& CONDUSR NOVR 


5541 


i 


I 






& SPFNOP 


5542 


00387 


1 






& SPHNOP ; 


5543 






CONT 




& AM2901 ,XU,SRAMQR,ADD,ZB 


5544 


4 


/ 






& CARRYL 


5545 


i 


f 






& SHIFT B 1110 


5546 


i 


( 






& SPFNOP 


5547 


00388 


/ 






& SPHNOP ; 


5548 






CONT 




& AM2901 XU.XU.RAMF.EXOR.DA 


5549 


* 


/ 






& IMM H 8000 


5550 


00389 


f 






& SPHNOP ; 


5551 






CONT 




& AM2901 , XEXP, RAMF, ADD, ZB 


5552 


i 


/ 






& CARRYH 


5553 


i 


1 






& SPFNOP 


5554 


0038A 


f 






& SPHNOP ; 


5555 


I 


~ADD4: 


JP 


NORM 


& AM2901 , XL, RAMF, PASS, ZQ 


5556 




f 






& SPFNOP 


5557 


0038B 


/ 






& SPHNOP ; 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 

5573 
5574 

5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 

5584 

5585 
5586 

5587 
5588 
5589 
5590 
5591 
5592 

5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 



ADDR 



STATEMENT 



0038C 
0038D 
003 8E 

0038F 
00390 

00391 



00392 



ROUTINE TO SWAP (XU.XL) AND (YU.YL) (GIVEN ZU.ZL SET UP) 
ALSO: XEXP := YEXP Q : = -Q 

MZ := ZERO CONDITION FOR NEW YU. 



SWAPFARG: CONT 
/ 

/ 



/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 
/ 

/ 
/ 
/ 



CONT 



CONT 



CONT 



CONT 



RET 



& AM2901 YU.XU, RAMF, PASS, ZA 

& SPFNOP 

& SPHNOP ; 

& AM2901 YL,XL,RAMF,PASS,ZA 

& SPFNOP 

& SPHNOP ; 

& AM2901 YEXP, XEXP, RAMF, PASS, ZA 

& SPFNOP 

& SPHNOP ; 

& AM2901 ZU.YU.RAMF.PASS.ZA 

& LODMSR 

& SPFNOP 

& SPHNOP ; 

& AM2901 ZL.YL, RAMF, PASS, ZA 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,,QREG,SUBS,ZQ 

& CARRYH 

& SPFNOP 

& SPHNOP ; 



* 
•.FMP' FLOATING-POINT MULTIPLY. * 

MULTIPLY THE UNPACKED NUMBERS • 

* 

(XU, XL, XEXP) » (YU.YL.YEXP) — > (XU, XL, XEXP) * 

* 

OVERFLOW AND UNDERFLOW ARE POSSIBLE. THE RESULT » 
MAY BE UNNORMALIZED BY ONE BIT. * 

•**««**«*ft*»*»*«**«tt*«*ft»»*»*«»ft***«****»**»»«»ftft»»**«»»*»ft» 

READ SECOND OPERAND FROM MEMRY; UNPACK BOTH OPERANDS. 
XEXP := XEXP + YEXP + 1 



.FMP: 



00393 



/ 
/ 

/ 
/ 

/ 
/ 



CALL UNPACK 



CONT 



& AM2901 XL, ZL, RAMF, PASS, ZA 

& SPFNOP 

& SPHNOP ; 

& AM2901 YEXP, XEXP, RAMF, ADD, AB 

& CARRYH 

& LODUSR 

& SPFNOP 

& SPHNOP ; 



D-130 



A600 BASESET MICROCODE (06/14/82 «A) 



LINE 

5608 
5609 
5610 
5611 
5612 

5613 
5614 

5615 
5616 
5617 
5618 
5619 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 

5633 
5634 

5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 



ADDR 



STATEMENT 



00394 



00395 

00396 

00397 
00398 



00399 
003 9A 
003 9B 



/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 
/ 

/ 

/ 
/ 
/ 
/ 

/ 
/ 



/ 
/ 

/ 
/ 

/ 
/ 



(R0=XU INITIALLY) 

Q := YU 

ZU := R.S. Q INTO QOBUF CNTR = SHIFT OP = 14 

MULTIPLY; (ZU.Q) : = XU * YU (SEE CODE FOR 'MPY') 



CONT 



PUSH H OOE 



RFCT 



CONT 



CONT 



(RO=XU STILL) 
YL := YL LS 4 



& AM2901 ,YU,QREG,PASS,ZB 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,ZU,SRAMQR,AND,ZB 

& CARRYL 

& SHIFT B 1110 

& SPFNOP 

& SPHNOP ; 

& AM2901 MPY,ZU,SRAMQR,ADD,AB 

& CARRYL 

& SHIFT B 1110 

& SPFNOP 

& SPHNOP ; 

& AM2901 MPY.ZU.SRAMQR.SUBR.AB 

& CARRYL 

& SHIFT B 1110 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,XL,RAMF,PASS,ZQ 

& SPFNOP 

& SPHNOP ; 



(FOR FMPYSUB) 
XL := XL + RO»YL; PROPOGATE CARRY. 
YL := ZL LS 4 (DONE IN FMPYSUB) 

RO := YU 

XL := XL + RO*YL; PROPOGATE CARRY. 
XU := ZU 



CALL FMPYSUB 



CALL FMPYSUB 



JP NORM 



& AM2901 YL,YL, RAMA, PASS, DZ 

& L4D 

& SPHNOP ; 

& AM2901 YU,RO,RAMF,PASS,ZA 

& SPFNOP 

& SPHNOP ; 

& AM2901 ZU.XU.RAMF.PASS.ZA 

& SPFNOP 

& SPHNOP ; 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 



ADDR 



STATEMENT 



5655 
5656 

5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 

5673 
5674 
5675 
5676 

5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 

5699 
5700 
5701 
5702 



0039C 



003 9D 



003 9E 



003 9F 



003A0 



003A1 



/ 
/ 

/ 
/ 

/ 
/ 

/ 

/ 

/ 



MULTIPLY SUBROUTINE; MULTIPLIES R0»YL, AND ADDS THE 
MSW TO (ZU.XL). RO IS SIGNED, AND THE LOWER 8 BITS 
OF YL ARE ZERO. 

THE PRODUCT IS DEVELOPED IN (YL,Q); IF IT IS 
NEGATIVE, WE MUST SUBTRACT ONE FROM ZU. IF THE ADD 
TO XL HAS A CARRY OUT, WE MUST ADD ONE TO ZU. 

YL := YL LS 4 (COMPLETE SWAPPING BYTES) 

Q := YL 

(DO 8 MULTIPLY STEPS; RESULT -> (YL.Q) 



FMPYSUB: 


CONT 


& AM2901 YL, YL, RAMA , PASS, DZ 


/ 




& L4D 


/ 




& SPHNOP ; 




LDCT H 007 


& AM2901 .YL.QREG.PASS.ZB 


/ 




& RSTMSR 


/ 




& SPFNOP 


/ 




& SPHNOP ; (RSTMSR: MZ:=0) 




CPUSH 


& AM2901 .YL.SRAMQR.AND.ZB 


/ 




& CARRYL 


/ 




& CONDMSR Z 


/ 




& SHIFT B 1110 


/ 




& SPFNOP 


/ 




& SPHNOP ; (CONDMSR Z ALWAYS FALSE) 




RFCT 


& AM2901 MPY,YL,SRAMQR,ADD,AB 


/ 




& CARRYL 


/ 




& SHIFT B 1110 


/ 




& LODMSR &ENBLO 


/ 




& SPFNOP 


/ 




& SPHNOP ; 



(BIT16 INDICATES IF PRODUCT < 0) 

XL := XL + YL; PROPOGATE CARRY TO ZU. 

YL := ZL LS 4 (HAVE TO USE THE CYCLE ANYWAY) 

IF PRODUCTS), DECREMENT ZU. 



CONT 



CONT 



CRET 



& AM2901 YL,XL,RAMF,ADD,AB 

& CARRYL 

& LODUSR 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,ZU,RAMF,ADD,ZB 

& CARRYUC 

& SPFNOP 

& SPHNOP ; 

& AM2901 ZL.YL, RAMA, PASS, DZ 

& CONDMSR SGNXOVR 

& L4D 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 

5703 
5704 
5705 
5706 

5707 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5748 

5749 
5750 
5751 



ADDR 



003A2 



003A3 



003A4 



003A5 



003A6 



STATEMENT 

/ 

/ 

/ 
/ 



RET 



& SPHNOP ; 

& AM2901 ,ZU,RAMF,SUBR,ZB 

& CARRYH 

& SPFNOP 

& SPHNOP ; 



•.FDV FLOATING-POINT DIVIDE. 



* 
« 

* 
* 

» 
* 
* 

* 
READ SECOND OPERAND FROM MEMRY; UNPACK BOTH OPERANDS. 



DIVIDE THE UNPACKED NUMBERS 

(XU, XL, XEXP) / (YU.YL.YEXP) — > (XU.XL.ZEXP) 

THE OPERANDS MUST BE NORMALIZED OR ZERO. 

OVERFLOW AND UNDERFLOW ARE POSSIBLE; DIVIDE BY 
ZERO IS TREATED AS OVERFLOW. THE RESULT MAY BE 
UNNORMALIZED BY ONE BIT. 



.FDV: 

/ 

/ 



CALL UNPACK & AM2901 ,, NOP, PASS, ZQ 

& SPFNOP 
& SPHNOP ; 

(R4.Q) = (XU,XL) RS 2 
XEXP : = XEXP - YEXP 
IF R4<0 THEN 

R4 := -R4 

Q := -Q - BORROW 
XU := XU .XOR. YU 
XL := 
IF YU<0 THEN 

YL := -YL 

YU : = -YU - BORROW 



/ 
/ 

/ 
/ 
/ 
/ 



CONT 



CONT 



CONT 



& AM2901 .XL.QREG.PASS.ZB 

& SPFNOP 

& SPHNOP ; 

& AM2901 XU,R4,SRAMQR,ADD,ZA 

& CARRYL 

& SHIFT B 1110 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,R4,SRAMQR,ADD, ZB 

& CARRYL 
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LINE 



ADDR 



STATEMENT 



5752 

5753 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 

5771 
5772 
5773 
5774 
5775 
5776 
5777 
5778 

5779 
5780 

5781 
5782 

5783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
5793 
5794 
5795 
5796 
5797 
5798 
5799 



003A7 



003A8 



003A9 



003AA 



003AB 



003AC 



003AD 



003AE 



003AF 



/ 
/ 
/ 

/ 
/ 
/ 
/ 

/ 

/ 
/ 

/ 

/ 
/ 
/ 
FDIV1: 

/ 

/ 
/ 

/ 
/ 

/ 

/ 
/ 
/ 

/ 

/ 
/ 

/ 

/ 
/ 
/ 







4 SHIFT B 1110 






4 SPFNOP 






4 SPHNOP ; 


CJP 


FDIV1 


4 AM2901 YEXP,XEXP,RAMF,SUBR,AB 

4 CARRYL 

4 CONDUSR NSIGN 

4 SPFNOP 

4 SPHNOP ; 


CONT 




4 AM2901 , ,QREG,SUBS,ZQ 
4 CARRYH 
4 LODUSR 
4 SPFNOP 
4 SPHNOP ; 


CONT 




4 AM2901 ,R4,RAMF,SUBS,ZB 
4 CARRYUC 
4 SPFNOP 
4 SPHNOP ; 


CONT 




4 AM2901 YU.YEXP.RAMF.PASS.ZA 
4 LODMSR 
4 SPFNOP 
4 SPHNOP ; 


CJP 


FOFL 


4 AM2901 XU,YU,RAMF,EXOR,AB 
4 CONDMSR Z 
4 SPFNOP 
4 SPHNOP ; 


CJP 


FDIV2 


4 AM2901 .XL.RAMF.AND, ZB 
4 CONEMSR NSIGN 
4 SPFNOP 
4 SPHNOP ; 


CONT 




4 AM2901 , YL.RAMF.SUBS.ZB 
4 CARRYH 
4 LODUSR 
4 SPFNOP 
4 SPHNOP ; 


CONT 




4 AM2901 , YEXP, RAMF, SUBS, ZB 
4 CARRYUC 
4 SPFNOP 
4 SPHNOP ; 



YEXP := YEXP + 1 

CALL FDIVSUB TO DIVIDE: 

R4 := REM (W/O LAST CORRECTION) 

Q := .NOT. QUOTIENT 



003B0 



FDIV2: 


CALL 


FDIVSUB 


4 AM2901 


/ 






4 CARRYH 


/ 






4 SPFNOP 


/ 






4 SPHNOP 



, YEXP, RAMF , ADD, ZB 
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A600 BASESET MICROCODE (06/14/82 *A) 



LINE 


ADDR STATEMENT 




5801 




IF R4<0 THEN 




5802 




R4 := R4 + YEXF 


> 


5803 




ZU := .NOT. Q 




5804 




IF ZtKO THEN RESULT := 


5805 




R4 := R4 + ZU 




5806 








5807 




CONT 


& AM2901 , R4, NOP, PASS, ZB 


5808 


/ 




& LODMSR 


5809 


/ 


t 


& SPFNOP 


5810 


003B1 / 


t 


& SPHNOP ; 


5811 




CJP FDIV3 


& AM2901 ,ZU,RAMF,EXNOR,ZQ 


5812 


/ 


t 


& CONDLMSR NSIGN 


5813 


/ 


t 


& SPFNOP 


5814 


003B2 / 


r 


& SPHNOP ; 


5815 




CONT 


& AM2901 YEXP,R4,RAMF,ADD,AB 


5816 


/ 


& CARRYL 


5817 


/ 


& SPFNOP 


5818 


003B3 / 


& SPHNOP ; 


5819 


FDIV3: CJP FDIV5 


& AM2901 ZU,R4,RAMF,ADD,AB 


5820 


/ 


& CARRYL 


5821 


/ 


/ 


& CONDMSR SIGN 


5822 


/ 


/ 


& SPFNOP 


5823 


003B4 


/ 


& SPHNOP ; 


5824 








5825 




; RO := ZU 




5826 




; YL := YL LS 4 




5827 




; CALL FMPYSUB TO: 


XL := YL*RO (UPPER) 


5828 








5829 




CONT 


& AM2901 ZU.RO.RAMF.PASS.ZA 


5830 




/ 


& SPFNOP 


5831 


003B5 


/ 


& SPHNOP ; 


5832 




CALL FMPYSUB 


& AM2901 YL.YL, RAMA, PASS, DZ 


5833 




/ 


& L4D 


5834 


003B6 


/ 


& SPHNOP ; 


5835 








5836 




\ R4 := R4-XL 




5837 




; (R4.Q) := (R4,Q) 


RS 2 


5838 




; XEXP := XEXP + 1 




5839 




; CALL FDIVSUB DIVIDE: Q := .NOT. QUOTIENT 


5840 








5841 




CONT 


& AM2901 XL,R4,SRAMQR,SUBR,J! 


5842 




/ 


& CARRYL 


5843 




/ 


& SHIFT B 0110 


5844 




/ 


& SPFNOP 


5845 


003B7 


/ 


& SPHNOP ; 


5846 




CONT 


& AM2901 ,R4,SRAMQR,PASS,ZB 


5847 




/ 


& SHIFT B 0110 


5848 




/ 


& SPFNOP 
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LINE 

5849 
5850 

5851 
5852 

5853 

5855 
5856 
5857 
5858 
5859 
5860 
5861 
5862 
5863 
5864 
5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 

5883 
5884 
5885 
5886 
5887 
5888 
5889 
5890 
5891 
5892 

5893 
5 894 
5895 
5896 
5897 



ADDR 
003B8 

003B9 



003BA 
003BB 

003BC 



003BD 



003BE 



003BF 



003C0 



STATEMENT 

/ 

/ 
/ 
/ 



/ 
/ 

/ 
/ 

/ 
/ 

/ 



/ 

/ 
/ 

/ 
/ 
/ 
/ 

/ 
/ 

/ 
/ 

/ 
/ 

/ 



CALL FDIVSUB 



4 SPHNOP ; 

4 AM2901 ,XEXP,RAMF,ADD,ZB 

& CARRYH 

& SPFNOP 

& SPHNOP : 



XL := .NOT. Q 

Q := 

(XL.Q) := (XL,Q) LS 2 CIRCULAR 



CONT 



PUSH H 001 



& AM2901 ,XL,RAMF,EXNOR,ZQ 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,,QREG,AND,ZQ 

4 SPFNOP 

& SPHNOP ; 

& AM2901 ,XL t SRAMQL,PASS,ZB 

4 SHIFT B 1111 

& SPFNOP 

& SPHNOP ; 



XU := ZU + Q 

IF OPERAND SIGNS DIFFER, NEGATE RESULT. 



RFCT 



CONT 



CJP NORM 



CONT 



003C1 



FDIV5: 

/ 

/ 



& AM2901 ,YU, NOP, PASS, ZB 

4 LODUSR 

4 SPFNOP 

4 SPHNOP ; 

4 AM2901 ZU,XU,RAMF,ADD,AQ 

4 CARRYL 

4 CONDUSR NSIGN 

4 SPFNOP 

4 SPHNOP ; 

4 AM2901 ,XL,RAMF,SUBS,ZB 

4 CARRYH 

4 LODUSR 

4 SPFNOP 

4 SPHNOP ; 

4 AM2901 ,XU,RAMF,SUBS,ZB 

4 CARRYUC 

4 SPFNOP 

4 SPHNOP : 



ZERO DIVIDEND (FOUND OUT THE HARD WAY). 
XU := (XL=0 ALREADY) 

JP NORM 4 AM2901 ,XU, RAMF.AND, ZB 

4 SPFNOP 
4 SPHNOP ; 



JP 



NORM 
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LINE 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 

5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5915 

5916 

5918 

5919 
5920 
5921 
5922 

5923 
5924 

5925 
5 926 

5 927 
5928 
5929 

5930 

5931 
5932 
5933 
5934 
5935 
5936 
5937 
5938 

5939 
5940 
5941 
5942 

5943 
5944 

5945 
5946 



ADDR 



STATEMENT 



003C2 



003C3 



003C4 



003C5 



DIVIDE SUBROUTINE; DIVIDES (R4.Q) BY YEXP. 
THE FINAL REMAINDER RESTORE IS NOT DONE, SINCE 
ON THE SECOND CALL THE REMAINDER IS DISCARDED. 



fdivsub: 


PUSH 


H 010 


& AM2901 ,R4, NOP, PASS, ZB 


/ 






& DIVUCOND 


/ 






& SPFNOP 


/ 






& SPHNOP ; 




RFCT 




& AM2901 YEXP.DIV.SRAMQL.SUBR.AB 


/ 






& DIVUCOND 


/ 






& CARRYL 


/ 






& SHIFT B 1111 


/ 






& SPFNOP 


/ 






& SPHNOP ; 




RET 




& AM2901 ,R4,SRAMR,PASS,ZB 


/ 






& SHIFT B 1111 


/ 






& SPFNOP 


/ 






& SPHNOP ; 



*ft«»**«*0****«****»***ft«*ftft*ft*»«**«*»*ft**«***«»*«««* 
UNPACK. FETCH 2ND OPERAND & UNPACK BOTH: 
(A.B) => (XU.XL.XEXP) 
(MEM.MEM+1) => (YU.YL.YEXP) 

NOTE THAT A=XU AND B=XL. 

TO UNPACK (A.B) ONLY (FOR FIX), ENTER AT 

'UNPACK1' 'WITH E & SWAPPED AND XEXP=B. 

XEXP := XL 
SWAP E & 
(YU.YEXP) := (MEM.MEM+1) 



UNPACK: 


CALL 


DIARG 


& AM2901 XL, XEXP, RAMF, PASS, ZA 


/ 






& SWAPEO 


/ 






& SPFNOP 


/ 






& SPHNOP ; 



YL := (YEXP .AND. FFOO) 

YEXP := (YEXP .XOR. YL) SHIFT RIGHT INTO MC 

IF YEXP<0 THEN 

YEXP := YEXP .OR. FF80 
EXIT 
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A600 BASESET MICROCODE (06/14/82 «A) 



LINE 


ADDR STATEMENT 








5947 






CONT 




& AM2901 YEXP.YL.RAMF.AND.DA 


5948 


/ 


t 






& IMM H FFOO 


5949 


003C6 


f 






& SPHNOP ; 


5950 






CONT 




& AM2901 YL,YEXP,SRAMR,EXOR,AB 


5951 


i 


1 






& SHIFT B 0010 


5952 


i 


l 






4 SPFNOP 


5953 


003C7 


! 






& SPHNOP ; 


5954 






CJP 


UNPACK 1 


& AM2901 ,, NOP, PASS, ZQ 


5955 


/ 


f 






& CONDMSR NC 


5956 


i 


1 






& SPFNOP 


5957 


003C8 


1 






& SPHNOP ; 


5958 






CONT 




& AM2901 YEXP,YEXP,RAMF,OR,DA 


5959 


/ 


1 






4 IMM H FF80 


5960 


003C9 


1 






4 SPHNOP ; 


5962 






XL 


:= (XEXP 


.AND. FFOO) 


5963 






XEXP 


:= (XEXP 


.XOR. XL) RIGHT SHIFT INTO MC 


5964 






IF MC 


=1 THEN 




5965 






XEXP := XEXP 


.OR. FF80 


5966 






MC : = 







5967 






SWAP 


E,0 BACK: 


E RESTORED, 0=0. 


5968 












5969 


I 


JNPACK1: 


CONT 




4 AM2901 XL,XL,RAMF,AND,DA 


5970 


i 


1 






4 IMM H FFOO 


5971 


003CA 


f 






4 SPHNOP ; 


5972 






CONT 




4 AM2901 XL,XEXP,SRAMR,EXOR,AB 


5973 


t 


1 






4 SHIFT B 0010 


5974 


t 


! 






4 SPFNOP 


5975 


003CB , 


/ 






4 SPHNOP ; 


5976 






CJP 


UN PACK 2 


4 AM2901 , XEXP, NOP, ADD, ZB 


5977 


i 


t 






4 CARRYL 


5978 


i 


/ 






4 CONDLMSR NC 4 ENBLC 


5979 


t 


/ 






4 SPFNOP 


5980 


003CC 


1 






4 SPHNOP ; 


5981 






CONT 




4 AM2901 XEXP, XEXP, RAMF, OR, DA 


5982 


t 


1 






4 IMM H FF80 


5983 


003CD 


t 






4 SPHNOP ; 


5984 


I 


JNPACK2: 


RET 




4 AM2901 , XEXP, NOP, PASS, ZB 


5985 


4 


/ 






4 SWAPEO 


5986 




/ 






4 SPFNOP 


5987 


003CE 


i 






4 SPHNOP ; 
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LINE 

5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 
6014 

6015 
6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 
6034 

6035 



ADDR 



STATEMENT 



003CF 



003D0 



003D1 



003D2 



003D3 



NORMALIZE. ENTER WITH (XU,XL)=VALUE; XEXP=EXPONENT. 
EXIT TO NEXT INSTRC WITH (A,B)=RESULT, SET/RESET. 



003D4 



Mn := A<15> 




; Q := XL 




; YEXP := XEXP + 


1 


; IF XU=0 THEN 




; B := 




; IF XL=0 THEN 


EXIT 


; XEXP ;= YEXP + 


1 


NORM: CONT 


& AM2901 ,XL,QREG,ADD,ZB 


/ 


& CARRYL 


/ 


& LODMSR &ENBL0 


/ 


& SPFNOP 


/ 


& SPHNOP ; 


CJP N0RM1 


& AM2901 ,XU, NOP, PASS, ZB 


/ 


& CONDLMSR NZ 


/ 


& SPFNOP 


/ 


& SPHNOP ; 


CJP SKIP 


& AM2901 B,B,RAMF,EXOR,AB 


/ 


& CONDMSR Z 


/ 


& SPFNOP 


/ 


& SPHNOP ; 


N0RM1: PUSH 


& AM2901 XEXP, XEXP, RAMF, ADD, DA 


/ 


& CARRYL 


/ 


& IMM H 0002 


/ 


& SPHNOP ; 


; REPEAT 




; CNTR := 1 


(FOR USE LATER) 


; IRSKIP := Mn 


.XOR. A<15> 


; XEXP := XEXP 


-1 


; (A,Q) := (A, 


Q) LS 1 


; UNTIL IRSKIP 




LDCT H 001 


4 AM2901 A, XEXP, RAMA, SUB R,ZB 


/ 


& CARRYH 


/ 


& CONDMSR SIGN 


/ 


& SPFNOP 


/ 


& SPHNOP ; 


LOOP 


& AM2901 ,A,SRAMQL,PASS,ZB 


/ 


& SHIFT B 0110 


/ 


& CONDEXT IRSKIP 


/ 


& SPFNOP 


/ 


& SPHNOP ; 
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LINE 

6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 

6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 

6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 



ADDR 



STATEMENT 



003D5 

003D6 
003D7 



003D8 



003D9 



003DA 



003DB 



/ 

/ 
/ 

/ 
/ 
/ 

/ 

/ 



/ 

/ 

/ 
/ 
/ 

/ 

/ 

/ 
/ 

/ 
/ 
/ 



ON THE NEXT-TO-LAST SHIFT, THE LAST COPY OF THE SIGN 
WAS SHIFTED OUT. ON THE LAST SHIFT, THE FIRST BIT 
NOT EQUAL TO THE SIGN WAS SHIFTED OUT. THESE BITS 
ARE NOW RESTORED. THE EXPONENT WAS DECREMENT TWO EXTRA 
TIMES, BUT WAS INCREMENTED TWICE BEFORE THE LOOP. 

(A.Q) := (Mn.Mn.A.Q) 
A := A .XOR. 40000B 



CONT 



CONT 



CONT 



ROUND: 



& AM2901 ,A,SRAMQR,PASS,ZB 

4 SHIFT B 0101 

4 SPFNOP 

4 SPHNOP ; 

& AM2901 ,A,SRAMQR,PASS,ZB 

& SHIFT B 0101 

& SPFNOP 

& SPHNOP ; 

4 AM2901 A,A,RAMF,EXOR,DA 

4 IMM H 4000 

& SPHNOP ; 



YL * = 1 77B 

B := Q + YL (+1 IF A>=0) 

A := A + CARRY 



CONT 



CONT 



CONT 



CONT 



4 AM2901 ,YL,RAMF,PASS,DZ 

4 IMM H 007F 

4 SPHNOP ; 

4 AM2901 A, A, NOP, ADD, AB 

4 CARRYL 

4 LODUSR 

4 SPFNOP 

4 SPHNOP 

4 AM2901 

4 CARRYNUC 

4 SPFNOP ; 

4 SPHNOP ; 

4 AM2901 ,A,RAMF,ADD,ZB 

4 CARRYNUC 

4 SPFNOP 

4 SPHNOP : 



; ADD 200B IF A NEGATIVE 
YL,B,RAMF,ADD,AQ 
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LINE 



ADDR 



STATEMENT 



6081 

6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 

6101 

6102 

6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

6114 

6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6128 
6129 



003DC 



003DD 



003DE 



003DF 



003E0 



003E1 



003E2 



SPECIAL CASES: 

IF OVERFLOW ON CARRY PROPOGATE, 

A := A RS 1 

XEXP := XEXP + 1 
ELSE IF A=1 40000, 

A := A LS 1 

XEXP := XEXP - 1 



ROUNDO: 

/ 

/ 

/ 

/ 

/ 
/ 

/ 

/ 

/ 

/ 

R0UND1: 

/ 

/ 

/ 

/ 
/ 
/ 

/ 

/ 
/ 



CJP R0UND1 



CONT 



JP 



R0UND2 



& AM2901 A, A, NOP, ADD, AB 

& CARRYL 

& CONDUSR NOVR 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,A,SRAMR,PASS,ZB 

& SHIFT B 0000 

& SPFNOP 

& SPHNOP ; 

& AM2901 , XEXP, RAMF, ADD, ZB 

& CARRYH 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,, NOP, PASS, ZQ 

& CONDUSR OVR 

& SPFNOP 

& SPHNOP ; 

& AM2901 ,A,SRAML,PASS,ZB 

& SHIFT B 0000 

& SPFNOP 

& SPHNOP ; 

& AM2901 , XEXP, RAMF, SUBR.ZB 

& CARRYH 

& SPFNOP 

& SPHNOP ; 



CHECK FOR EXPONENT UNDERFLOW OR OVERFLOW: 

UPPER 9 BITS MUST BE THE SAME. FORMAT EXPONENT. 

YEXP := XEXP .AND. 200B 

YEXP := XEXP + YEXP 

YEXP := YEXP + YEXP + CARRY 

IF (YEXP. AND. 177400B) .NE. 0, OVERFLOW/UNDERFLOW 



CJP R0UND2 



CONT 



CONT 



ROUND2: 

/ 

/ 

/ 
/ 



CONT 



CONT 



& AM2901 XEXP, YEXP, RAMF, AND, DA 

& IMM H 0080 

& SPHNOP ; 

& AM2901 XEXP, YEXP, RAMF, ADD, AB 

4 CARRYL 

& LODUSR 



D-141 
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LINE 



ADDR 



STATEMENT 



6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
6152 
6153 

6155 
6156 
6157 
6158 

6159 
6160 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6168 
6169 
6170 

6171 
6172 
6173 
6174 
6175 
6176 
6177 



003E3 



003E4 



003E5 



003E6 



003E7 



003E8 



003E9 



003EA 



003EB 



003EC 



/ 
/ 

/ 
/ 

/ 

/ 
/ 
/ 

/ 
/ 
/ 



CONT 



CONT 



CJP FOFLUFL 



4 SPFNOP 

4 SPHNOP ; 

& AM2901 YEXP,YEXP,RAMF,ADD,AB 

4 CARRYUC 

& SPFNOP 

4 SPHNOP ; 

4 AM2901 YEXP, ,NOP,AND,DA 

4 LODUSR 

4 IMM H FFOO 

4 SPHNOP ; 

4 AM2901 ,XEXP, NOP, PASS, ZB 

4 CONDUSR NZ 

4 SPFNOP 

4 SPHNOP : 



PACK EXPONENT WITH 2ND MANTISSA WORD, CLEAR OVRFLW, 4 EXIT. 



/ 

/ 

/ 
/ 
/ 



FOFLUFL: 

/ 

/ 

/ 

/ 

/ 

/ 

FOFL: 

/ 

/ 

/ 

/ 
/ 
/ 



CONT 4 AM2901 B,B,RAMF,AND,DA 

4 IMM H FFOO 

4 SPHNOP ; 
JP SKIP 4 AM2901 YEXP.B.RAMF.OR.AB 

4 RSTMSR 4 ENBLO 

4 SPFNOP 

4 SPHNOP ; 

FLOATING UNDERFLOW 4 OVERFLOW. 

TEST SIGN OF EXPONENT. 

NEGATIVE: UNDERFLOW, RESULT = 

POSITIVE: OVERFLOW, RESULT = 77777B, 177776B 
*** NOTE: THE SHIFT BELOW TAKES ADVANTAGE OF THE 
*** FACT THAT THE FOUR LSB OF 'SKIP' ARE ALL ZERO. 



CJP FOFL 



JP SKIP 



CONT 



JP SKIP 



4 


AM2901 


,A,RAMF, 


AND, ZB 




4 


CONDUSF 


! NSIGN 






4 


SPFNOP 








4 


SPHNOP 


• 
t 






4 AM2901 


.B.RAMF, 


AND, ZB 




4 


SETMSR 


4 ENBLO 






4 


SPFNOP 








4 


SPHNOP 


t 






4 AM2901 


A.A.SRAMR.EXNOR 


,AB 


4 


SHIFT E 


! 0000 






4 


SPFNOP 








4 


SPHNOP 


i 






4 AM2901 


B.B.SRAML.EXNOR 


AB 


4 


SETMSR 


4 ENBLO 






4 


SPFNOP 








4 


SPHNOP 


t 
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LINE 

6178 
6179 
6180 
6181 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6190 

6191 
6192 
6193 
6194 
6195 
6196 
6197 
6198 
6199 
6200 
6201 
6202 
6206 
6207 

6209 
6210 
6211 
6212 

6213 
6214 

6215 
6216 

6217 
6218 
6219 
6220 



ADDR 



STATEMENT 



003ED 

003EE 

003EF 
003F0 



003FF 



003FF 



VMA PMAP FAULT FIX PATCH 

- This code can be moved into the fault handler routine 
when new 105XXX decode proms are made. 



VMAFPMAP: CONT 
/ 

/ 
/ 



/ 
/ 

/ 

/ 
/ 
/ 

/ 
/ 



IF 

LIST 

ENDIF 



CJP VMAFAUL1 



CONT 



JZ 



FILL AREA 



FILL 



& AM2901 ,A,NOP,PASS,ZB 

& L0DUSR 

& SPHNOP 

& SPFN0P ; TEST SIGN OF A 

& AM2901 ,, NOP, PASS, ZQ 

& CONDUSR NSIGN 

& SPHNOP 

& SPFNOP ; IF NO ERROR RETURN 

& AM2901 ,PC,NOP,SUBR,ZB 

& CARRYH 

& LDMAR 

& IF ETCH ; TAKE ERROR RETURN 

& AM2901 ,A,RAMF,PASS,DZ 

& IMM H 0050 

& SPHNOP ; ERROR CODE 80 DECIMAL 



LAST WORD IN MICROSTORE 

- THE PON SELF-TEST JUMPS HERE TO TEST THE MICROSEQUENCER 
Y-BUS 



LASTWD: 

/ 

/ 

/ 

END 



ORG H 3FF 

JP INTPONOK & AM2901 ,B,RAMF,ADD, ZB 

& CARRYH 

& SPHNOP 

& SPFNOP ; B := 1 FOR LED'S 



TOTAL ASSEMBLY ERRORS 
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A 


A 


00000 


AB 


A 


00001 


ADD 


A 


00000 


ADX. 


A 


00202 


AD. 


E 


00003 


AD. I 


E 


00002 


AM2901 


D 




AND 


A 


00004 


AQ 


A 


00000 


ASCCACCE 


A 


00033 


ASCCACLE 


A 


0002F 


ASCCACME 


A 


00037 


ASCCANOP 


A 


0002A 


ASCLACCE A 


00031 


ASCLACLE 


A 


0002D 


ASCLACME 


A 


00035 


ASCLANOP 


A 


00028 


ASCMACCE 


A 


00032 


ASCMACLE 


A 


0002E 


ASCMACME 


A 


00036 


ASCMANOP 


A 


00029 


ASCONT 


A 


0002B 


ASL 


A 


000 5E 


ASLCONT 


A 


001 3D 


ASLOVFL 


A 


00145 


ASNOPCCE 


A 


00034 


ASNOPCLE 


A 


00030 


ASNOPCME 


A 


00038 


ASR 


A 


00061 


B 


A 


00001 


BITSB 


A 


00225 


BITWRT 


A 


002 1F 


BYTESWAP 


A 


0023D 


C 


A 


OOOOB 


CAB 


A 


00010 


CALL 


D 




CARRYEXT 


D 




CARRYH 


D 




CARRYL 


D 




CARRYNUC 


D 




CARRYREG 


D 




CARRYUC 


D 




CBS 


A 


0021B 


CBT 


A 


0025A 


CCALL 


D 




CJP 


D 




CJPP 


D 




CLCOO 


A 


0008E 


CLC04 


A 


000BE 


CLC05 


A 


000C9 


CLC06 


A 


000D8 


CLFOO 


A 


00093 


CLF02 


A 


OOOAF 


CLF05 


A 


OOOCC 


CLF06 


A 


OOODA 


CLO 


A 


000A2 


CLRDTST 


A 


OOOOA 


CLRMPEN 


A 


OOOOE 


CLRMPI 


A 


00002 


CLRPEI 


A 


00001 


CLRPFWI 


A 


00006 


CLRPSFF 


A 


OOOOC 


CLRTBT 


A 


00004 


CLRTDI 


A 


00008 


CMW 


A 


00245 


CMWLT 


A 


00250 


CMWNEQ 


A 


002 4E 


CNNOP 


A 


00000 


CONDEXT 


D 




CONDLMSR 


D 




CONDMSR 


D 




CONDUSR 


D 




CONT 


D 




COPYABXY 


A 


00205 


COPYXYAB 


A 


00206 


CPUID 


A 


00002 


CPUSH 


D 




CP. 


A 


00009 


CP.1 


A 


OOOOA 


CP.I 


A 


00008 


CRET 


D 




CVECT 


D 




CXY 


A 


00012 


DA 


A 


00005 


DADD 


A 


003 5D 


DBLILSB 


A 


00006 


DBLIMSB 


A 


00005 


DCZFER 


A 


001E4 


DIARG 


A 


001 39 


DIV 


A 


00014 


DIVCOND 


D 




DIVD 


A 


00146 


DIVD05 


A 


001 4C 


DIVD20 


A 


00157 


DIVD25 


A 


001 5B 


DIVD30 


A 


001 5D 


DIVD40 


A 


0015E 


DIVDOVFL 


A 


00160 


DIVENT 


A 


000 7A 


DIVUCOND 


D 




DLD 


A 


00071 


DLOAD 


A 


000E2 


DMSEXIT 


A 


002 8E 


DQ 


A 


00006 


DST 


A 


00076 


DSXY 


A 


00207 


DZ 


A 


00007 


EAGUIT 


A 


OOOFF 


ECIRRD 


A 


00005 


ENBLC 


D 




ENBLO 


D 




ENCN 


D 




ENVE 


D 




EXNOR 


A 


00007 


EXOR 


A 


00006 


FADD1 


A 


003 7C 


FADD2 


A 


00383 


FADD3 


A 


00384 


FADD4 


A 


003 8B 


FDIV1 


A 


003AB 


FDIV2 


A 


003B0 


FDIV3 


A 


003B4 


FDIV5 


A 


003C1 


FDIVSUB 


A 


003C2 


FETCH 


A 


00000 


FILL 


A 


00001 


FILLER 


D 




FIX 


A 


00361 


FIX1 


A 


00366 


FIX2 


A 


00367 


FIXZERO 


A 


003 6C 


FLT 


A 


003 6D 


FMPYSUB 


A 


003 9C 


FOFL 


A 


003EB 


FOFLUFL 


A 


003E9 


GENMPV 


A 


002C1 


GETPTE 


A 


0032F 


HLT 


A 


00081 


HLTO 


A 


00161 


HLT1 


A 


00163 


IAND 


E 


00006 


IANDI 


E 


00005 


ICRS 


A 


00007 


IFETCH 


D 




IMAPLOC 


A 


00003 


IMM 


D 




IMMB 


D 




INITIAL 


A 


002 6F 


INTDEAD 


A 


001A3 


INTERRPT 


A 


001 9C 


INTEXIT 


A 


001BA 


INTFTCH 


A 


001B1 


INTHLDPC 


A 


001 9D 


INTIO 


A 


001C2 


INTPARTY 


A 


001B6 


INTPEND 


A 


00275 


INTPFW 


A 


001D4 


INTPON 


A 


001 9E 


INTPONOK 


A 


001A5 


INTPROT 


A 


001 DO 


INTRPT 


A 


00007 


INTSLRQ 


A 


001C6 


INTSLRQL A 


001C7 


INTTBG 


A 


001BE 


INTTBL 


A 


001F0 


INTUIT 


A 


001CC 


INVMSR 


D 




IODC0001 


A 


00187 


IODC0010 A 


00189 


IODC0011 


A 


001 8B 


IODC0110 A 


001 8D 


IODC0111 


A 


0018F 


I0DC1001 


A 


00190 


IODC1010 


A 


00196 


IODC1011 


A 


00198 


IODC1110 


A 


0019A 


IODCXXXX A 


00186 


IODECODE 


A 


00174 


IOGGE20 


A 


00082 


I0GLT20 


A 


00087 


I0GLT20V 


A 


000 8B 


IOHSHAK 1 


A 


00171 


I0HSHAK2 


A 


00172 


IOHSHAKE 


A 


001 6D 


IONOP 


A 


0008C 


IOR 


E 


OOOOE 


IORD 


D 




IORI 


E 


OOOOD 


IORQ 


A 


00006 


IOSKIP 


A 


OOOAE 


IOWR 


D 




IR0T3 


A 


00008 
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IR11 


A 


00002 


IRES01 


A 


00343 


IRES04 


A 


00347 


IRES05 


A 


00348 


IRES10 


A 


003 4D 


IRES40 


A 


00358 


IRES50 


A 


00359 


IRES80 


A 


0035C 


IRMRG 


D 




IRSKIP 


A 


00000 


ISXY 


A 


00209 


ISZ 


E 


00011 


ISZI 


E 


00010 


JLY 


A 


00217 


JL. 


A 


0005F 


JMAP 


D 




JMP 


E 


00017 


JMPI 


E 


00014 


JP 


D 




JPP 


D 




JPY 


A 


00219 


JRP 


D 




JSB 


A 


000 1C 


JSBI 


A 


00018 


JSBIVMA 


A 


00019 


JTAB 


D 




JZ 


D 




L4D 


D 




LABXY 


A 


0020B 


LASTWD 


A 


003FF 


LBT 


A 


0022A 


LCBT 


A 


002 5B 


LCMW 


A 


00246 


LDAER 


D 




LDBYTE 


A 


00232 


LDCT 


D 




LDIM1 


A 


00001 


LDMAPD 


D 




LDMAR 


D 




LDMDOR 


D 




LDST 


D 




LDX. 


A 


00200 


LD. 


E 


00020 


LD.I 


E 


0001F 


LEDWR 


A 


00003 


LIA05C 


A 


0OOD4 


LIA05H 


A 


000D2 


LI. 01 


A 


000A8 


LI. 04 


A 


000C6 


LI. 07 


A 


000E1 


LMAPO 


A 


00298 


LMBT 


A 


00255 


LMOVBYTE 


A 


002DA 


LMOVWORD 


A 


002D3 


LMVW 


A 


00240 


LODMSR 


D 




LOEMSRCI 


D 




LODUSR 


D 




LODUSRCI 


D 




LODUSROR 


D 




LOOP 


D 




LOWSC 


A 


00004 


LPMRO 


A 


0028A 


LSFB 


A 


00269 


LSL 


A 


00065 


LSR 


A 


00068 


LT 


A 


00003 


LVLO 


A 


00000 


LWD10 


A 


00285 


MAPD 


A 


OOOOD 


MAPRD 


A 


00001 


MAPWR 


A 


00002 


MAPX 


A 


OOOOE 


MBT 


A 


00253 


MIAK 


D 




MICREVID A 


00800 


MI. 01 


A 


000A9 


MKLROFF 


D 




MKLRON 


D 




MOVOOO 


A 


002CA 


MOV010 


A 


002CC 


MOV 100 


A 


002CE 


M0V110 


A 


002D0 


MOVBYTE 


A 


002D9 


MOVWORD 


A 


002D2 


MPEN 


A 


00005 


MPY 


A 


00013 


MPY4 


A 


00017 


MREAD 


D 




MRGIND 


A 


00101 


MULT 


A 


0007B 


MVW 


A 


0023F 


M WRITE 


D 




MWRTIND 


A 


00108 


NARG 


A 


00000 


NC 


A 


OOOOA 


NEW PC 


A 


00001 


NOP 


A 


00001 


NORM 


A 


003CF 


N0RM1 


A 


003D2 


NOSKIP 


A 


00231 


NOTRS 


A 


00005 


NOVR 


A 


00006 


NSIGN 


A 


OOOOE 


NUCLIMSR 


D 




NZ 


A 


00004 


OR 


A 


00003 


OT.OO 


A 


000 9F 


0T.01 


A 


000A7 


OT.02C 


A 


000B6 


0T.02H 


A 


000B8 


OT.04 


A 


000C4 


OVR 


A 


00007 


PASS 


A 


00003 


PC 


A 


OOOOF 


PELENH 


A 


00003 


PELENL 


A 


00002 


PORM 


A 


000 1F 


POSIMAPR 


A 


00294 


PRLEN 


A 


00004 


PTELKUP 


A 


00335 


PTELKUP5 


A 


00341 


PTELKUPX A 


00340 


PUSH 


D 




QPEI 


A 


00003 


QREG 


A 


00000 


RO 


A 


00000 


R1 


A 


00001 


R10 


A 


OOOOA 


R11 


A 


OOOOB 


R12 


A 


OOOOC 


R13 


A 


OOOOD 


R14 


A 


OOOOE 


R15 


A 


OOOOF 


R2 


A 


00002 


R3 


A 


00003 


R4 


A 


00004 


R5 


A 


00005 


R6 


A 


00006 


R7 


A 


00007 


R8 


A 


00008 


R9 


A 


00009 


RAMA 


A 


00002 


RAMF 


A 


00003 


READCIR 


A 


001ED 


REFETCH 


A 


00165 


REFETCH2 


! A 


001 6B 


RESOLVE 


A 


00102 


RESOLVE 1 


A 


00103 


RET 


D 




RFCT 


D 




RFETCH 


D 




ROTATE 


A 


OOOOA 


ROTATEC 


A 


00009 


ROUNDO 


A 


003DC 


R0UND1 


A 


003DF 


R0UND2 


A 


003E2 


RPCT 


D 




RRL 


A 


0006B 


RRR 


A 


000 6E 


RSTMSR 


D 




SABXY 


A 


002 OF 


SAVEAB 


A 


002FA 


SBS 


A 


002 1D 


SBT 


A 


0022F 


SETCIR 


A 


001E0 


SETDTST 


A 


OOOOB 


SETMAPS 


A 


001 DA 


SETMPEN 


A 


OOOOF 


SETMPI 


A 


00003 


SETMSR 


D 




SETP1 


A 


000F3 


SETP2 


A 


OOOFD 


SETP2PAT A 


OOOFB 


SETP3 


A 


000F7 


SETP4 


A 


000F9 


SETPSFF 


A 


OOOOD 


SETTBT 


A 


00005 


SETTDI 


A 


00009 


SFB 


A 


00266 


SFCOO 


A 


0009C 


SFCOO. 1 


A 


0009D 


SFCOO. C 


A 


000 9A 


SFC02 


A 


000B4 


SFC04 


A 


000C2 


SFC05 


A 


OOODO 


SFC06 


A 


OOODE 


SFCXX 


A 


000 9E 
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SFSOO 


A 


00097 


SFSOO. 1 


A 


00098 


SFSOO. C 


A 


00095 


SFS02 


A 


000B2 


SFS04 


A 


OOOCO 


SFS05 


A 


OOOCE 


SFS06 


A 


OOODC 


SFSXX 


A 


00099 


SGNXOVR 


A 


00002 


SHIFT 


D 




SIGN 


A 


OOOOF 


SIMPO 


A 


002B1 


SINTRQ 


A 


00004 


SKIP 


A 


00100 


SLACK 


A 


00007 


SMAPO 


A 


002A3 


SOC.C 


A 


000A5 


SOC.H 


A 


000A3 


SOS.C 


A 


000A6 


SOS.H 


A 


000A4 


SPFNOP 


D 




SPHNOP 


D 




SPMRO 


A 


00290 


SPRD 


D 




SPWR 


D 




SR1CLE 


A 


00048 


SR1CLESL 


A 


0004B 


SR1SL 


A 


00049 


SRAML 


A 


00007 


SRAMQL 


A 


00006 


SRAMQR 


A 


00004 


SRAMR 


A 


00005 


SRGOALF 


A 


00045 


SRGOALR 


A 


00041 


SRGOALS 


A 


0003A 


SRGOARS 


A 


0003D 


SRGOEU 


A 


00044 


SRGOELAD 


A 


00046 


SRGOERA 


A 


00043 


SRGOERAD 


A 


00047 


SRGONOP 


A 


00039 


SRGORAL 


A 


0003F 


SRGORAR 


A 


00040 


SRG1 


A 




SRG2 


A 


OOOOA 


SRG2ALF 


A 


000 5A 


SRG2ALR 


A 


00056 


SRG2ALS 


A 


0004F 


SRG2ARS 


A 


00052 


SRG2ELA 


A 


00059 


SRG2ELAD 


A 


000 5C 


SRG2ERA 


A 


00058 


SRG2ERAD 


A 


0005D 


SRG2N0P 


A 


0004E 


SRG2RAL 


A 


00054 


SRG2RAR 


A 


00055 


SRGSKIP 


A 


0004D 


STBYTE 


A 


00235 


STBYTEOD A 


0023C 


STBYTEWR 


A 


0023A 


STC02 


A 


OOOAA 


STC04 


A 


OOOBC 


STC05 


A 


000C8 


STC06 


A 


000D6 


STC07 


A 


OOOEO 


STFOO 


A 


00091 


STF02 


A 


OOOAC 


STF05 


A 


OOOCA 


STF06 


A 


OOODB 


STO 


A 


000A1 


STRD 


D 




STWMAP 


A 


002C 3 


STWMAP5 


A 


002C9 


STX. 


A 


00215 


ST. 


E 


00022 


ST. I 


E 


00021 


SUBR 


A 


00001 


SUBS 


A 


00002 


SWAPEO 


D 




SWAPFARG 


A 


003 8C 


SWMPO 


A 


002AD 


SWRD 


A 


00006 


TAB 


A 


00011 


TBS 


A 


00220 


TWB 


D 




UCLDMSR 


D 




ULE 


A 


OOOOD 


UNPACK 


A 


003C 5 


UNPACK1 


A 


003CA 


UNPACK2 


A 


003CE 


VMAFAUL1 


A 


00329 


VMAFAULT 


A 


00326 


VMAFPMAP 


A 


003ED 


VMALOC 


A 


00004 


VMAMAP 


A 


003 OB 


VMAMAP01 


A 


003 OF 


VMAPTE 


A 


00002 


WORDCNT 


A 


OOOOB 


WRTIND 


A 


00109 


WRTIND1 


A 


0010A 


X 


A 


00002 


XABXY 


A 


00212 


XC.10 


A 


0027C 


XEXP 


A 


00007 


XJMPO 


A 


002B9 


XL 


A 


00001 


XL. 10 


A 


00278 


XOR 


E 


00026 


XORI 


E 


00025 


XS.10 


A 


00281 


XU 


A 


00000 


Y 


A 


00003 


YEXP 


A 


00006 


YL 


A 


00008 


YU 


A 


00005 


YUERR 


X 


00000 


YXERR 


X 


00000 


Z 


A 


00005 


ZA 


A 


00004 


ZB 


A 


00003 


ZL 


A 


OOOOA 


ZQ 


A 


00002 


ZU 


A 


00009 


.CPM 


A 


00136 


. CPUID 


A 


000E7 


.DAD 


A 


001 OF 


.DADE 


A 


00112 


.DCO 


A 


001 2E 


.DCOEQ 


A 


00133 


.DCOLT 


A 


00131 


.DC OX 


A 


00132 


.DDE 


A 


00120 


.DDS 


A 


00125 


.DIN 


A 


001 1C 


.DINE 


A 


001 1E 


.DIS 


A 


00122 


.DNG 


A 


001 1A 


• DSB 


A 


00114 


.DSBR 


A 


00117 


.DSKIPZ 


A 


00128 


.ENTC 


A 


002EA 


.ENTN 


A 


002E6 


.ENTN05 


A 


002E8 


.ENTP 


A 


002E3 


.ENTR 


A 


002E0 


.ENTR05 


A 


002E2 


.ENTRL 


A 


002EE 


.ENTRL1 


A 


002EF 


. ENTRSUE 


I A 


002F4 


.FAD 


A 


0037B 


.FDV 


A 


003A4 


.FMP 


A 


00392 


.FSB 


A 


00375 


.FWID 


A 


000E9 


.IMAP 


A 


00323 


.IRES 


A 


00321 


.LBPO 


A 


0030A 


.LBPR 


A 


00300 


.LPXO 


A 


00303 


.LPX01 


A 


00304 


.LPXR 


A 


00307 


. PMAPO 


A 


00319 


.SETP 


A 


OOOEF 


.SIP 


A 


OOOED 


.WFI 


A 


OOOEB 


.XFER 


A 


001E9 


..FCM 


A 


00370 
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OBJECT MODULE - A600 BASESET MICROCODE (06/14/82 «A) 



00000 11 00001 1XX0010XX 

00001 01110000XX001X01 

00002 0001 000 1XX001X1X 

00003 1 1 1 01 OOOXXOOOXXX 

00004 000000000001 oxxx 

00005 00010001XX001X1X 

00006 11 101 OOOXXOOOXXX 

00007 OOOOOOOOXXOOOXXX 

00008 00010001XX001X1X 

00009 11101 OOOXXOOOXXX 
OOOOA 1 1 1 OOOOOXXOOOXXX 

OOOOB 001 1 ooooxxoooxoo 

0000C 00001 000XX001 XXX 

OOOOD 0001 0001 XX001X1X 

OOOOE 11 101 OOOXXOOOXXX 

OOOOF OOOOOOOOXXOOOXXX 

00010 00010001XX001X1X 

00011 11 10001 0XX011XXX 
00 1 2 111 OOOOOXXOOOXXX 

00013 00001 000XX001 XXX 

00014 00010001XX001X1X 

00015 11100000XX101XXX 

00016 00001 OOOXXOOOXXX 

00017 OOOOOOOOXXOOOXXX 

00018 00010001XX001X1X 

00019 11 10001 0XX011XXX 
0001A 11100000XX101XXX 
0001B 0000 1000XX001 XXX 
0001C 11 10001 0XX011XXX 
00 1 D 111 OOOOOXXOOOXXX 
0001E 0000 1000XX001 XXX 
0001F 00010001XX001X1X 

00020 00001 OOOXXOOOXXX 

00021 00010001XX001X1X 

00022 11100010XX011XXX 

00023 11100000XX001XXX 
002 4 0000 1 0OOXXOOOXXX 

00025 00010001XX001X1X 

00026 11 101 OOOXXOOOXXX 

00027 OOOOOOOOXXOOOXXX 

00028 00110000XX000X1X 

00029 00110000XX000X1X 
002A 1 1 1 0OOOOXXOOOXXX 
0002B 11 001 0000001 OXXX 
0002C 01110000XX000X01 
0002D 00110000XOOOOX1X 
002E 0011 OOOOXOOOOX 1 X 
0002F 0011 OOOOXOOOOX 1X 

00030 0011 OOOOXOOOOX 1X 



XXXXXOOOOOO 11000 
01X1011111011110 
XXXXX 1000 1000000 
XXXXX 1000 1000000 
0001010000100000 
XXXXX 1000 1000000 
XXXXX 1000 1000000 

xxxxxooooooooooo 

XXXXX 1000 1000000 
XXXXX10001001000 
XX101 10000001000 
XXX01 00000000000 
01XXX01111011110 
XXXXX 1000 1000000 
XXXXX 1000 1000000 

xxxxxooooooooooo 

XXXXX 1000 1000000 
0110110001100010 
11X0100000011110 
01XXX01111011110 
XXXXX 1000 1000000 
XXXXX00000011110 
01XXX00000011110 
01XXX01100011110 
XXXXX 1000 1000000 
01XXX01111100010 
01XXX00000011110 
01XXX01111011110 
01XXX01 11 1100010 
01XXX01100011110 
01XXX01111011110 
XXXXX 1000 1000000 
XXXXX 1000 1100000 
XX101 10001000000 
XXXXX 10000 1000 10 
01XXX00000011110 

xxxxxooooooooooo 

XXXXX 1000 1000000 
XXXXX 1000 1000000 

xxxxxooooooooooo 

0001000000100000 
0001000000100000 
0001010000100000 
1001010000100000 
XXX 1000000000000 
0001000000100000 
0001000000100000 
0001010000100000 
0001000000100000 



1 10111 11XXXX0000 
1000001101110001 
0001111 1XXXX0001 
00011 111XXXXXXXX 
1 10000001 111XXXX 
00011 11 1XXXX0001 
00011 11 1XXXXXXXX 

1 1 1 oooooxxxxxxxx 

00011111XXXX0001 
11011 11 1XXXXXXXX 
01110001XXXXXXXX 
0101101001010000 
1 000001 1XXXXXXXX 
00011 11 1XXXX0001 
0001 111 1XXXXXXXX 
11011000XXXXXXXX 
00011111XXXX0001 
01000111XXXXXXXX 
110010111000XXXX 
1 000001 1XXXXXXXX 
00011111XXXX0001 
11011010XXXXXXX1 
11 00001 1XXXXXXXX 
11000100XXXXXXXX 
000111 11XXXX0001 
01001100XXXXXXXX 
11000010XXXXXXX1 
1 00000 11XXXXXXXX 
01001100XXXXXXXX 
11000100XXXXXXXX 
1 000001 1XXXXXXXX 
00011111XXXX0001 
11011111XXXXXXXX 
00011 111XXXX0001 
01011100XXXXXXXX 
01001011XXXXXXXX 
01011010XXXXXXXX 
00011 11 1XXXX0001 
00011 11 1XXXXXXXX 
11110000XXXXXXXX 
1110001111110000 
1101001111110000 
1 1010001 1111XXXX 
1000001111110000 
0101101000000001 
1110001111110000 
1101001111110000 
1101000111110000 
0100001111110000 



ooooxxxx 

10011100 
00000001 

xxxxxxxx 
xxxxxxxx 

00000001 

xxxxxxxx 
xxxxxxxx 

00000001 

xxxxxxxx 
xxxxxxxx 

00000000 

xxxxxxxx 

00000001 

xxxxxxxx 
xxxxxxxx 

00001000 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

00001000 
001 XXXXX 

xxxxxxxx 
xxxxxxxx 

00001000 

xxxxxxxx 

001 XXXXX 
XXXXXXXX 

xxxxxxxx 
xxxxxxxx 

xxxxxxxx 

00000001 

xxxxxxxx 

00001000 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

00000001 

xxxxxxxx 
xxxxxxxx 

00101011 
00101011 

xxxxxxxx 

00000000 
00000000 
00101011 
00101011 
00101011 
00101011 
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00031 

00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
0003A 
0003B 
0003C 
0003D 
0003E 
0003F 
00040 
00041 
00042 
00043 
00044 

00045 
00046 

00047 
00048 
00049 
0004A 
0004B 
0004C 
0004D 
0004E 
0004F 
00050 
00051 
00052 
00053 
00054 

00055 
00056 
00057 
00058 
00059 
0005A 
0005B 
0005C 
0005D 
0005E 
0005F 
00060 
00061 
00062 
00063 



00110000X0000X1X 
00110000X0000X1X 
00110000X0000X1X 
001100OOX00OOX1X 
001 10000X001 OX 1X 
001 10000X001 OX 1X 
00 11 0000X001 OX 1X 
00 11 0000X001 OX 1X 
00100000XXOOOOXX 

1 1 1 oooooxxoooxxx 

11100000XX000XXX 
00100000XX0000XX 



0001000000100000 
0001000000100000 
0001010000100000 
0001000000100000 
0001000000100000 
0001000000100000 
0001010000100000 
0001000000100000 

xxxxxooooooooooo 

XX01 0000001 00001 
XXXXX000001 00001 



1110001110000000 
1101001110000000 
1101000110000000 
0100001110000000 



00101011 
00101011 
00101011 
00101011 



1110001110000000 00101011 
1101001110000000 00101011 
1101000110000000 00101011 
0100001110000000 00101011 
01011 01 OXXXXOOOO 1001XXXX 
110110111111XXXX XXXX0010 
11011011 XXXXXXXX XXXXOO 1 
01011011XXXX0000 10010101 



XXXXX 000001 00001 
11100000XX000XXX XX01 0000001 00000 010110111111XXXX XXXXXXXX 
00100000XX0000XX XXXXXOOOOO 100001 01O11011XXXXOO00 10010101 
00100000XXOOOOXX XXXXXOOOOO 100001 11011011XXXX0000 
0O100O00XX0000XX XXXXXOOOOO 100001 01011011XXXXOOOO 
11100110XX000XXX XXXXXOOOOOOOOOOO 0001111100111111 
001 OOOOOXXOOOOXX XXXXX 10000 100001 1 1 1 oooooxxxxoooo 
00 1 OOOOOXXOOOOXX XXXXXOOOOO 1 0000 1 
00100O00XXO000XX XXXXXOOOOO 100001 
00100101 XXOOOOXX XXXXX 100001 00000 
001 OOOOOXXOOOOXX XXXXX1 0000001 001 
00 1 OOOOOXXOOOOXX XXXXX 1 000000 1 00 1 

00 1 oooooxoooooxx xxoooooooooooooo 



01011011XXXX0000 
11011011XXXX0000 
10011 111XXXX0000 
11011100XXXX0000 
01011100XXXX0000 
0101101000110000 



1 1 OOOOOOXXOOOOXX XXXXX000001 00000 01011011XXXX0000 



10011010 
10011010 

11111111 

10010010 
10011001 
10011001 
1001XXXX 
10011001 
10011001 
1010XXXX 
1010XXXX 



01110000XXOOOX01 
11000000XOOOOOXX 
01110000XX000X01 
00100000XX0010XX 
00001000XX000XXX 

1 1 1 oooooxxoooxxx 

11101000XX000XXX 

ooooooooxxoooxxx 

11101-000XX000XXX 

ooooooooxxoooxxx 



XXX1 000000000000 0101101000000000 01001101 
XX000000001 00000 0101101100110000 1010XXXX 



XXX1 000000000000 
01XXX01111011110 
XXXXXOOOOOOOOOOO 
XX01 0000001 00001 
XXXXXOOOOO 100001 
XXXXX000001 00001 
XX01 0000001 00000 
XXXXX00000100001 



00001 OOOXXOOOXXX XXXXX000001 00001 
00001 OOOXXOOOXXX XXXXXOOOOO 1 0000 1 
1 1 1 001 1 OXXOOOXXX XXXXXOOOOOOOOOOO 
0000 1 OOOXXOOOXXX XXXXX 1 00001 0000 1 
0000 1 OOOXXOOOXXX XXXXXOOOOO 100001 
00001 OOOXXOOOXXX XXXXXOOOOO 100001 
1 1 1 01 OOOXXOOOXXX XXXXXOOOOOOOOOOO 
00000 1 01 XXOOOXXX XXXXX 100001 00000 



00001 OOOXXOOOXXX 
00001 OOOXXOOOXXX 
00110000XXOOOX1X 
0001 000 1XX000X1X 
00110000XX000X1X 

1 1 1 oooooxxoooxxx 

01001000XX00001X 



XXXXX 1000000 1001 
XXXXX 1000000 1001 
XXXXXOOOOOOOOOOO 
XXXXX01111 100000 
XXXXX00000011110 
XX01 0000000000 10 
XXXXXOOOOOOOOOOO 



1 OOOOOOOXXOOOXXX XXXXX0000000001 1 



0101101000000000 01001101 
1 000001 1XXXX0000 1 01 oxxxx 
0101101 OXXXXXXXX XXXXXXXX 
110110111111XXXX XXXX0010 
11 01 1011 XXXXXXXX XXXXOO 10 
01011011XXXXXXXX XXXX0101 
010110111111XXXX XXXXXXXX 
0101 1011 XXXXXXXX XXXX0101 
11 01 1011 XXXXXXXX XXXX1010 
0101 101 1XXXXXXXX XXXX1010 
0001111100111111 11111111 
1 1 1 OOOOOXXXXXXXX XXXXOO 1 
01011011XXXXXXXX XXXX1001 
1101 1011 XXXXXXXX XXXX1001 
0101101 OXXXXXXXX XXXXXXXX 
10011111 XXXXXXXX XXXXXXXX 
110111 OOXXXXXXXX XXXX 1 00 1 
01011100XXXXXXXX XXXX 1001 
01011 01 0XXXX0001 00111101 
11011100XXXX0001 00001001 
11011010XXXX0001 00000000 
01 01 101111 11XXXX XXXXXXXX 
00011 01 1XXXX0000 1000XXXX 
0001 1011 XXXXXXXX XXXX0101 
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00064 000000000X000XXX 

00065 01001000XX00001X 
0066 1 0OOOOOOXXOOOXXX 

00067 OOOOOOOOXXOOOXXX 

00068 01001000XX00001X 

00069 10000000XXOOOXXX 
0006A OOOOOOOOXXOOOXXX 
0006B 01001000XX00001X 
0006C 10000000XX000XXX 
0006D OOOOOOOOXXOOOXXX 
0006E 01001000XX00001X 
0006F 10000000XX000XXX 

00070 OOOOOOOOXXOOOXXX 

00071 00010001XX000X1X 
0072 0000 1 0OOXXOOOXXX 

00073 0000000000000000 

00074 0000000000000000 

00075 0000000000000000 

00076 00010001XXOOOX1X 

00077 11100010XX011XXX 

00078 11100000XX001XXX 

00079 0011 001 0XX011X1X 
0007A 00110000XX000X1X 
0007B 00010001XXOOOX1X 

007C 111 oooooxxoooxxx 

0007D 01000000XX000X1X 

0007E 10000000XX000XXX 

007F 111 OOOOOXXOOOXXX 

0080 0011 OOOOOXOOOX 1 X 

00081 00110000XXOOOX1X 

00082 00110000XX000X01 

00083 00010000XXOOOX1X 

00084 00010000XX000X1X 
0085 000 1 0OOOXXOOOX 1 X 

00086 00110000XX001X1X 

00087 11100110XXOOOXXX 

00088 1 1 OOOOOOXXOOOXXX 

00089 00110000XXOOOXOO 
0008A 00110000XX000X01 
0008B 00010000XX00001X 
0008C 11100000XX101XXX 
0008D 00001 OOOXXOOOXXX 
0008E 11101110XX101XXX 
0008F 11100110XX100XXX 

00090 00110000XXOO0X1X 

00091 11101110XX000XXX 

00092 101001 10XX100X1X 

00093 11101110XX000XXX 

00094 10100110XX100X1X 

00095 00010000XX000X1X 

00096 00110000XX000X1X 



XXOOOOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX00000000011 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX00000000011 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX00000000011 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX00000000011 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

0000000000000000 

0000000000000000 

0000000000000000 

XXXXXOOOOOOOOOOO 

XXXXXOOOOO 100010 

01XXX00000000000 

XXXXX00001 100010 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX 1000 1000000 

00XXX00000000011 

00XXX1001 1000011 

00XXX1 001 1000011 

XXOOOOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXX1000000000000 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

01XXX01111011110 

XXXXX01 10001 1000 

0110100000011000 

XXX01 00000000000 

XXX1 000000000000 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 



1101 1010001 1XXXX 
00011 01 1XXXX0000 
10011 01 1XXXXXXXX 
11011010XXXXXXXX 
0001 101 1XXXX0000 
0001 101 1XXXXXXXX 
11011010XXXXXXXX 
0001 101 1XXXX0000 
1001 101 1XXXXXXXX 
11011010XXXXXXXX 
00011 01 1XXXX0000 
00011 01 1XXXXXXXX 

1 1 01 1 01 oxxxxxxxx 

01011010XXXX0000 

0101 101 oxxxxxxxx 

0000000000000000 

0000000000000000 

0000000000000000 

01011010XXXX0001 

01011100XXXXXXXX 

0000001 OXXXXXXXX 

01011100XXXX0001 

01011010XXXX0001 

01011 01 0XXXX0001 

00011111XXXXXXXX 

00100011XXXX0000 

0000000 1XXXXXXXX 

00001 00 1XXXXXXXX 

1101101000110001 

00011 01 0XXXX0001 

0101101001010010 

01011 01 0XXXX0001 

01011010XXXX0001 

01011010XXXX0001 

1000001 1XXXX0000 

11100101'00000000 

01001011XXXX0000 

0101101001010000 

0101101001010010 

01011 01 oxxxxoooo 

01011010XXXXXXX1 

0101 101 oxxxxxxxx 

00011111XXXXXXX0 
0010011011111111 
01 01 101 OXXXXOOOO 
00011111XXXXXXXX 
0101111000000000 
00011 11 1XXXXXXXX 
0110111000000000 
0101 101 OXXXXOOOO 
01 01 101 OXXXXOOOO 



xxxxxxxx 

1000XXXX 
XXXX0110 

xxxxxxxx 
1 oooxxxx 

XXXX0110 

xxxxxxxx 
1 oooxxxx 

XXXX1111 

xxxxxxxx 
1 oooxxxx 

XXXX1111 

xxxxxxxx 

11100010 

xxxxxxxx 

00000000 
00000000 
00000000 
00001001 

xxxxxxxx 
xxxxxxxx 

00000000 
01000110 
00001001 

xxxxxxxx 

00001110 
XXXX1110 
XXXX1110 
00000000 
01100001 
11000001 
01100101 
01101101 
01110100 
10001100 
00111111 
10001100 
10001011 
11000001 
0100XXXX 
001 XXXXX 
XXXXXXXX 
111XXXXX 
11100100 
11011000 

xxxxxxxx 

00000001 

xxxxxxxx 

00000001 
10010011 
10011000 



D-149 



A600 BASESET MICROCODE (06/14/82 »A) 



00097 11101110XX000XXX 

00098 11100110XX000XXX 

00099 01110000XX000X00 
0009A 00010000XX000X1X 
0009B 00110000XX000X1X 
0009C 11101110XX000XXX 
0009D 11100110XX000XXX 
0009E 01110OO0XXOO0X00 
0009F 11100000XX111XXX 
000A0 00110000XXOOOX1X 
000A1 00001 OOOOXOOOXXX 
000A2 00001 OOOOXOOOXXX 

000A3 01 1 1 ooooxxoooxoo 

000A4 01 11 OOOOXXOOOXOO 

000A5 011100000X000X00 

000A6 011100000X000X00 

000A7 00001 000XX111XXX 

000A8 10101 111XX000X1X 

000A9 10101111XX000X1X 

OOOAA 00010000XXOOOX1X 

OOOAB 00110000XX001X1X 

OOOAC 00011110XX000X1X 

OOOAD 11100110XX100XXX 

OOOAE 00110000XX001X1X 

OOOAF 00011110XX000X1X 

OOOBO 11100110XX100XXX 

000B1 10100000XX001X1X 

000B2 11100110XXOOOXXX 

000B3 00111110XXOOOX1X 

000B4 11100110XXOOOXXX 

000B5 00111110XX000X1X 

000B6 11101110XX000XXX 

000B7 11100110XX100XXX 

000B8 00010000XX000X1X 

000B9 00010000XXOOOX1X 

OOOBA 0001 101 1XX011X1X 

OOOBB 00110000XX001X1X 

OOOBC 11101110XX000XXX 

OOOBD 101001 10XX100X1X 

OOOBE 11101110XXOOOXXX 

OOOBF 101001 10XX100X1X 

OOOCO 11100110XXOOOXXX 

000C1 00111110XX000X1X 

000C2 11100110XX000XXX 

000C3 00111110XX000X1X 

000C4 00010000XX000X1X 

000C5 10100000XX000X1X 

000C6 00010000XX000X1X 

000C7 10100000XX000X1X 

000C8 10100000XX101X1X 

000C9 10100000XX101X1X 



XXXXXOOOOOOOOOOO 
XX 101 00000000000 
XXX01 00000000000 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XX 101 00000000000 
XXX01 00000000000 
XXXXXOOOOO 100000 
XXXXXOOOOOOOOOOO 
XXOOOOOOOOOOOOOO 
XXOOOOOOOOOOOOOO 
XXX 1000000000000 
XXX 1000000000000 
0001000000000000 
0001000000000000 
XXXXXOOOOO 100000 
XXXXXOOOOO 100000 
XXXXX 10000 100000 
XXXXXOOOOOOOOOOO 
01XXX01111011110 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
01XXX01111011110 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
01XXX01111011110 
XXXXXOOOOOOOOOOO 
XX 101 00000000000 
XXXXXOOOOOOOOOOO 
XX101 00000000000 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOO 100000 
01XXX01111011110 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XX101 00000000000 
XXXXXOOOOOOOOOOO 
XX101 00000000000 
XXXXX 1000000 1100 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXX001 10100000 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 



00011111XXXXXXXX 
0110011000000000 
0101101001000000 
01011010XXXX0000 
01011010XXXX0000 
00011111XXXXXXXX 
0110011000000000 
0101101001010000 
01011011XXXXXXXX 
01011O1OXXXXOO00 
010110100001XXXX 
0101 1010001 1XXXX 
0101101001100001 
0101101001110001 
0100001001100001 
0100001001110001 
01111011XXXXXXXX 
1 10111 11XXXXXXXX 
11011101XXXXXXXX 
01011010XXXX0001 
1000001 1XXXX0000 
00011111XXXX0001 
0110111000000000 
1 000001 1XXXX0000 
00011111XXXX0001 
0101111000000000 
1000001 1XXXXXXXX 
0001111100000000 
01100110XXXX0000 
0001111100000000 
01100110XXXXOOOO 
00011 11 1XXXXXXXX 
0101111000000000 
01011 01 0XXXX0001 
01011010XXXX0001 
01011011XXXX0001 
1 000001 1XXXX0000 
00011111XXXXXXXX 
0110111000000000 
00011111XXXXXXXX 
0101111000000000 
0001111100000000 
01100110XXXX0000 
0001111100000000 
O1100110XXXX0000 
11011100XXXX0001 

01011 01 oxxxxxxxx 
01011010XXXX0001 
11011100XXXXXXXX 
01011111XXXXXXX1 
01011111XXXXXXX1 



XXXXXXXX 
00000001 
10101110 
10010011 
10011101 
XXXXXXXX 
00000001 
10101110 
XXX01XXX 
10111000 
XXXXXXXX 
XXXXXXXX 
00000000 
00000000 
00000000 
00000000 
XXX 11 XXX 
XXXXX110 
XXXXX110 
01100101 
10001100 
01100101 
00000010 
10001100 
01100101 
00000010 
XXXXXXXX 
00000010 
10011110 
00000010 
10011001 
XXXXXXXX 
00000010 
01100101 
01101101 
01110010 
10001100 
XXXXXXXX 
00001000 
XXXXXXXX 
00001000 
10000000 
10011110 
10000000 
10011001 
11100000 
XXXXXXXX 
11101101 
XXXXXXXX 
101 XXXXX 
100XXXXX 
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000CA 

OOOCB 

OOOCC 

OOOCD 

OOOCE 

OOOCF 

OOODO 

000D1 

000D2 

000D3 

OOODM 

000D5 

000D6 

0OOD7 

000D8 

000D9 

OOODA 

OOODB 

OOODC 

OOODD 

OOODE 

OOODF 

OOOEO 

000E1 

000E2 

000E3 
OOOEU 
O0OE5 
000E6 
000E7 
000E8 

000E9 
OOOEA 
OOOEB 
OOOEC 
OOOED 
OOOEE 
OOOEF 
OOOFO 
000F1 
000F2 
000F3 
000F4 

000F5 
000F6 
000F7 
000F8 
000F9 
OOOFA 
OOOFB 
OOOFC 



1110111 OXXOOOXXX XXXXXOOOOOOOOOOO 
101001 10XX100X1X XXXXXOOOOOOOOOOO 
1110111 OXXOOOXXX XXXXXOOOOOOOOOOO 
101001 10XX100X1X XXXXXOOOOOOOOOOO 
1110011 OXXOOOXXX XXXXXOOOOOOOOOOO 
00 1 1 1 1 1 0XX000X1X XX 1 01 00000000000 
1 1 1 00 1 1 OXXOOOXXX XXXXXOOOOOOOOOOO 
00111110XX000X1X XX1 01 00000000000 
1110111 1XX000XXX XXXXXOOOOO 1 00000 
1 01 001 1 0XX000X1X XXXXX 100001 00000 
1110111 1XX000XXX XXXXXOOOOO 1 00000 
1 01 001 1 0XX000X1X XXXXX 1 00001 00000 



11101110XX000XXX 
101001 10XX100X1X 
01001 11 0XX000X1X 
10000110XX100XXX 
10100000XX101X1X 
10100000XX101X1X 



XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 



1 1 1 001 1 OXXOOOXXX XXXXXOOOOOOOOOOO 
00111110XX000X1X XX101 00000000000 



11100110XX000XXX 

00111110XX000X1X 

10100000XX101X1X 

10101111XX000X1X 

00010000XXOOOX1X 

11100000XX001XXX 

11 10000 1XX000XXX 

11100000XX001XXX 

10100000XX000X1X 

11 10011 OXXOOOXXX 

00001 OOOXXOOOXXX 

11100110XX000XXX 

00001 OOOXXOOOXXX 

00110000XX000X01 

00110000XX000X1X 

00110000XX000X01 

00001 OOOXXOOOXXX 

00010001XX000X1X 

00010000XX000X1X 

1 1 10000 1XX001 XXX 

0011 000 1XX000X1X 

1O1OOO00XX0OOX00 

00110000XXOOOX1X 

11100000XX001XXX 

001 10010XX01 1X01 

00110000XXOOOXOO 

0000 1000XX001 XXX 

1110011 OXXOOOXXX 

00110000XX000X1X 

00110000XXOOOX01 



XXXXXOOOOOOOOOOO 

XX1 01 00000000000 

XXXXXOOOOOOOOOOO 

XXXXXOOOOO 100000 

XXXXXOOOOOOOOOOO 

01XXXOO0000OO00O 

XXXXX 1000 1000000 

01XXX01111011110 

XXXXX 1000 10000 10 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXX1 000000000000 

XXXXXOOOOOOOOOOO 

XXX1 000000000000 

XXXXXOOOOOOOOOOO 

XX01000000001010 

0010100001000010 

01XXX00000000010 

01XXX10001000000 

XXX01 00000000011 

XX01 01 0001 001 010 

01XXX0000 10000 10 

01X1000000000000 

0101000000001010 

01XXX01111011110 

XXXXXOOOO 1000010 

XXXXX001 01 000000 

01X1000000000000 



001 10000XX000X1X XXXXXOOOOOOOOOOO 



00011111XXXXXXXX 
0101111000000000 
00011111XXXXXXXX 
0110111000000000 
0001111100000000 
01100110XXXX0O00 
0001111100000000 
01100110XXXX0000 
11011111XXXXXXXX 
1111010111111100 
11111111XXXXXXXX 
1110010100000000 
00011111XXXXXXXX 
0101111000000000 
00011 11 1XXXX0000 
0110111000000000 

01011 01 oxxxxxxxo 

01011010XXXXXXX0 

0001111100000000 

01100110XXXX0000 

0001111100000000 

01100110XXXX0000 

01011111XXXXXXX1 

11011111XXXXXXXX 

01011010XXXX0001 

0000001 OXXXXXXXX 

11011111XXXXXXXX 

1 000001 1XXXXXXXX 

1 10111 11XXXXXXXX 

1101111100000000 

01 01 101 OXXXXXXXX 

1101111100001000 

0101 101 OXXXXXXXX 

0101101001110001 

01011010XXXX0000 

0101101001000001 

0101 101 OXXXXXXXX 

1101110011110001 

11 00000 1XXXX0000 

01001011XXXXXXXX 

11000111XXXX0000 

010110111011XXXX 

1101111111110000 

1 00000 11XXXXXXXX 

1000001101110000 

1100101101000000 

1 000001 1XXXXXXXX 

1101110110000000 

11011100XXXX0001 

1100001101110000 

01011010XXXX0000 



xxxxxxxx 

00000100 

xxxxxxxx 

00000100 
00000100 
10011001 
00000100 
10011110 
XXXXX010 
00000000 
XXXXX01 1 

11111111 

XXXXXXXX 
00010000 
00000011 
00010000 
100XXXXX 
101 XXXXX 
01000000 
10011001 
01000000 
10011110 
111XXXXX 
XXXXX 100 
00001001 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

00000010 

xxxxxxxx 

00000000 

xxxxxxxx 

10011100 
11101011 
00000000 

xxxxxxxx 

00001001 
11110011 

xxxxxxxx 

11110111 

xxxxoooo 

11110111 

xxxxxxxx 

11111001 
11111101 

xxxxxxxx 

00000000 
10011100 
11111001 
11110111 
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000FD 11100000XX001XXX 

OOOFE 0011 001 0XX011X1X 

OOOFF 00110000XX000X1X 

00100 00001 000XX001 XXX 

00101 10100000XX001XOO 

00102 1 1 00000 1XX001 XXX 

00103 10100000XX001X00 

00104 10010001XX001XXX 

00105 11100000XX101XXX 

00106 10110000XX000X01 

00107 00110000XX000X1X 

00108 10100000XXOOOXOO 

00109 1 1 00000 1XX001 XXX 
001 OA 10100000XX000X00 
001 OB 10010001XX001XXX 
001 OC 1 01 OOOOOXX 101X00 

1 0D 1011 OOOOXXOOOX0 1 
001 OE 00110000XX000X1X 

001 OF 00010000XXOOOX1X 

00110 11100000XX000XXX 

00111 111 OOOOOOXOOOXXX 

00112 00111000XX001XOO 

00113 OOOOOOOOXOOOOXXX 

00114 00010000XX000X1X 

00115 11100000XX000XXX 

00116 001100000X000X1X 

00117 00010000XX000X1X 

00118 11100000XX000XXX 

00119 001100000X000X1X 
001 1A 11100000XX000XXX 
001 1B 11100000XX000XXX 
001 1C 11100000XXOOOXXX 
001 1D 111010000XOOOXXX 
001 1E 00110000XX000X00 
1 1F OOOOOOOOXOOOOXXX 

00120 1 1 1 OOOOOXXOOOXXX 

00121 001110000XOOOX1X 

00122 00010000XX000X1X 

00123 11100000XX000XXX 

00124 00110000XX000X1X 

00125 0O0100OOXX00OX1X 

00126 11100000XX000XXX 

00127 1 1 1 OOOOOXXOOOXXX 

00128 11 10001 0XX011XXX 

00129 11100000XX001XXX 
0012A 11 10001 0XX011XXX 
001 2B 11100000XXOOOXXX 
001 2C 00110000XX000X00 
0012D 00110000XX000X1X 
0012E 00010000XX000X1X 
001 2F 1 1 1 OOOOOXXOOOXXX 



01 XXXOOOO 1000010 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
01XXX01111011110 
01X0100000011110 
XX1 01 10001000000 
01X0100000011110 
XX101 10001000000 
XXXXXOOOOOOOOOOO 
XXX1 000000000000 
XX101 00000000000 
XXX01 00000000000 
XX101 10001000000 
XXX01 00000000000 
XX101 10001000000 
XXX01 00000000000 
XXX1 000000000000 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
0010100110000010 
1100100101000000 
01X0101111011110 

xxoooooooooooooo 

XXXXXOOOOOOOOOOO 
0010100110000010 
1100100101000000 
XXXXXOOOOOOOOOOO 
0110100110000010 
1100100101000000 
XXXXXOOOOOOOOOOO 
XXXXX00000000010 
0110100000000010 
1100100000000000 
XXX01 00000000000 

xxoooooooooooooo 

0110100000000010 
1100100000000000 
XXXXXOOOOOOOOOOO 
0110100000001100 
11X0100000001010 
XXXXXOOOOOOOOOOO 
0110100000001100 
11X0100000001010 
XXXXXOO 110100010 
01XXX00000000000 
XXXXXOO 1 01 100010 
XX10100101001100 
XXX01 00000000000 
01XXX00000011110 
XXXXXOOOOOOOOOOO 
0110100000001010 



1000001 1XXXXXXXX 
01011011XXXX0000 
01011 01 0XXXX0001 
1000001 1XXXXXXXX 
010010111110XXXX 
00011111XXXXOOOO 
0100101 11 110XXXX 
00011111XXXX0001 
01011010XXXXXXX1 
0101101001110001 
01011010XXXX0001 
0101 10101 11 oxxxx 
000111 11XXXXOOO0 
0101 10101 110XXXX 
000111 11XXXX0001 
010110101110XXX1 
0101101001110001 
01011 01 0XXXX0001 
01011010XXXX0001 
11 00000 1XXXXXXXX 
11 000001 011 oxxxx 
1000001110100000 
01011 01 00001XXXX 
01011010XXXX0001 
11001001XXXXXXXX 
1100100110000001 
01011010XXXX0001 
110100011000XXXX 
1101000110000001 
11111011XXXXXXXX 
11111011XXXXXXXX 
11000011XXXXXXXX 
11 00001 1011 oxxxx 
0101101010100000 
010110100001XXXX 
11001011XXXXXXXX 
1100101110000001 
01011010XXXX0001 
11 00001 1XXXXXXXX 
1100001101100001 
01011010XXXX0001 
110010111000XXXX 
11 001 01 1011 OXXXX 
01011100XXXXXXXX 

00001 01 oxxxxxxxx 

01011100XXXXXXXX 
01011001XXXXXXXX 
0101101001000001 
11000011XXXX0001 
01011 01 0XXXXOO01 
01010001XXXXXXXX 



XXXXXXXX 

11111011 
11001100 
XXXXXXXX 
XXXXXXXX 
00000011 
XXXXXXXX 
00000011 
OOOXXXXX 
10011100 
00000001 
XXXXXXXX 
00000011 
XXXXXXXX 
00001010 
OOOXXXXX 
10011100 
00001001 
00111001 
XXXXXXXX 
XXXXXXXX 
00000000 
XXXXXXXX 
00111001 
XXXXXXXX 
00010010 
00111001 
XXXXXXXX 
00010010 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
00000000 
XXXXXXXX 
XXXXXXXX 
00011110 
00111001 
XXXXXXXX 
00101000 
00111001 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
00000000 
00000000 
00111001 
XXXXXXXX 
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00130 001 10000XX 000X00 01X0100000001010 0101000101010001 00110011 

00131 OO110000XX0O0XOO 01X0100000011110 1100001100110001 00000000 

00132 00110000XX000X1X 01XXX00000011110 11 00001 1XXXX0001 00000000 

00133 1 1 000000XX000XXX 0110100001001100 01010001XXXX0001 00110010 

00134 00110000XX000X00 01X0100001001100 0101000101010001 00000000 

00135 01110000XX000X00 01X0100000011110 1100001110100001 00000000 

00136 00010001XX000X1X XXXXXOOOOOOOOOOO 01011 01 0XXXX0010 00100101 

00137 11000000XX000XXX 0110100100001010 01010001XXXX0001 00110001 

00138 01110000XX000X00 01X0100100001010 0101000101010001 00000000 

00139 OO010001XX0OOX1X XXXXXOOOOOOOOOOO 01011 01 0XXXX0001 00001001 
001 3A 11100000XX001XXX 01XXX00000000000 0000001 oxxxxxxxx xxxxxxxx 
001 3B 11 10000 1XX000XXX XXXXX 1000 1001 010 11011111XXXXXXXX xxxxxxxx 
0013C 101 00001 XX000X1X XXXXX 1000 1001 100 11011111XXXXXXXX xxxxxxxx 
0013D 111000000X000XXX XXOOOOOOOOOOOOOO 0001 1011 001 1XXXX xxxxxxxx 
001 3E 1110000000000XXX XX00000000000010 0101 1011 01 ooxxxx xxxxxxxx 
001 3F 01000000XX00001X XXXXX00000000011 1001 101 1XXXX0000 10000110 

00140 00010000XXOOOX01 XXX 1000000000000 0101101000000001 01000101 

00141 10000000XX000XX0 XXX 10000000000 11 1001 1011 11 11XXXX XXXX0110 

00142 00010000XX000X01 XXX1 000000000000 0101101000000001 01000101 

00143 11101000XX000XXX XXXXX00000000011 0001 1011 XXXXXXXX XXXX0101 

00144 OOOOOOOOOOOOOXXX XXOOOOOOOOOOOOOO 11 01 101 001 OOXXXX XXXXXXXX 

00145 10100110XX000X1X XXXXX00000001001 1101111110000000 00000000 

00146 00010001XX000X1X XXXXXOOOOOOOOOOO 01011010XXXX0001 00001001 

00147 111000000X000XXX 0001010001001010 110001111111XXXX XXXXXXXX 

00148 1 1 1 OOOOOXXOOOXXX XX10100001001 100 11011100XXXXXXXX XXXXXXXX 

00149 00110000XX000X00 XXX01 00000000000 0001101111100001 01001100 
001 4A 11100000XX000XXX 0110100000000000 0001 001 OXXXXXXXX XXXXXXXX 
001 4B 1 1 1 OOOOOXXOOOXXX 11X0100000000010 110100110110XXXX xxxxxxxx 
0014C 00110000XX000X00 XXX1 000001 001 000 1101110001010001 01100000 
0014D 11100000XX000XX0 XXX0000000001000 010110111111XXXX xxxxxxxx 
001 4E 11100000XX000XXX 0010100101101000 11 00 1001 xxxxxxxx xxxxxxxx 
001 4F 00110000XX000X00 XXX01 00000000000 0101101011100001 01100000 

00150 01000000XX000X10 XXX0000000001001 1001101111110000 00001111 

00151 1 OOOOOOOXXOOOXXO 00X0000101101001 10001001 1111XXXX XXXX1111 

00152 11100000XX000XXX XXXXX00000001001 0101 101 1XXXXXXXX XXXX1111 

00153 11100000XXOOOXXX XX10100000001000 0101 101 1XXXXXXXX XXXXXXXX 

00154 00110000XX000X00 XXX01 00000001 000 0101101111100001 01010111 

00155 11100000XX000XX0 XXX0000000001000 010110111111XXXX XXXXXXXX 

00156 1 1 1 OOOOOXXOOOXXX OOXXXOO 101 101000 11 00 1001 XXXXXXXX xxxxxxxx 

00157 1 1 1 OOOOOXXOOOXXX XX10100000001100 01 01 1011 xxxxxxxx xxxxxxxx 

00158 00110000XX000X00 XXX01 001 10001010 1111000111100001 01011011 

00159 11100000XX000XXX 01XXX00000001000 11 01 0011 xxxxxxxx xxxxxxxx 
0015A 11100000XX000XXX XX10100000001010 01 01 1011 xxxxxxxx xxxxxxxx 
001 5B 00110000XX00OX00 XXX01 001 00000010 1101110011110001 01011101 
001 5C 00110000XX000X1X 0010100000000000 11010010XXXX0001 01011110 
001 5D 00110000XXOOOX1X 0110100000000000 11000010XXXX0001 01011110 
0015E 00110000XX000X00 XXX01 00000001 010 0111000101010001 00000000 
0015F 00110000XX000X00 XXX01 00000000000 0001101111100001 00000000 

00160 0O1100000X000X1X XXOOOOOOOOOOOOOO 1101101000010001 00000000 

00161 00110000XX000X01 XXX 1000000000000 0101101001010010 11000001 

00162 00010000XX000X1X XXXXXOOOOOOOOOOO 01011 01 0XXXX0001 01100101 
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00163 00110000XX000X01 

00164 00110000XX000X1X 

00165 11100110XX001XXX 

00166 11100000XXOOOXXX 

00167 00010000XX000X00 

00168 01001001XX000X1X 

00169 1OO000O0XXOO0XXX 
001 6A 10100000XX110X1X 
001 6B 11100110XX001XXX 
0016C 10100110XX110X1X 
001 6D 01000000XXOOOX1X 
001 6E 10110000XXOOOX01 
001 6F 10000000XX000XXX 

00170 00110000XX001X1X 

00171 11 10101 oxxoooxxx 

00172 00110000XX000X01 

00173 10100000XXOOOX1X 

00174 01000000XX000X1X 

00175 10000000XX000XXX 

00176 11100110XX000XXX 

00177 00110000XX000X00 

00178 00110000XX000X00 

00179 00110000XX000X00 
001 7A 00110000XX000X00 
001 7B 00110000XX000X00 
001 7C 00110000XX000X00 
001 7D 00110000XXOOOXOO 
001 7E 00110000XXOOOXOO 
001 7F 00110000XX000X00 

00180 OO11O000XX000X00 

00181 00110000XX000X00 

00182 00110000XXOOOXOO 

00183 00110000XXOOOXOO 

00184 00110000XX000X00 

00185 00110000XX000X00 

00186 10100000XX000X1X 

00187 00010000XX000X1X 

00188 10100000XX000X1X 

00189 00010000XXOOOX1X 
001 8A 10100000XXOOOX1X 
001 8B 00010000XX000X1X 
001 8C 10100000XX000X1X 
001 8D 00010000XX000X1X 
0018E 10100000XX000X1X 
001 8F 10100000XX000X1X 

00190 00010000XX000X1X 

00191 11100000XX101XXX 

00192 11100110XX110XXX 

00193 11100110XX001XXX 

00194 11100010XX011XXX 

00195 10100000XX101X1X 



XXX 1000000000000 

xxxxxooooooooooo 

00XXX01111011110 
0110100000011110 
XXX01 00000000000 
01XXX00000011110 

xxxxxooooooooooo 

XXXXX00000011100 

xxxxxooooooooooo 
xxxxxooooooooooo 
xxxxxooooooooooo 

XXX 1000000000000 

xxxxxooooooooooo 

01XXX01111011110 

xxxxxooooooooooo 

XXX1 000000000000 

xxxxxooooooooooo 

XXXXX00000001000 
XXXXX00000001001 
XX10100100001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
01X0100000001000 
XXXXX00000001000 

xxxxxooooooooooo 

XXXXX00000011110 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXX00000000010 

xxxxxooooooooooo 

XXXXX 10000 100000 
01XXX00000011110 
XXXXXOOOOOOOOOOO 
XXXXXOOOOOOOOOOO 
XXXXX01110011100 

xxxxxooooooooooo 

XXXXX00000001000 
XXXXXOOOOOOOOOOO 



0101101001110001 
01011 01 0XXXX0001 
1100110100000000 
01001011XXXXXXXX 
0101101011010001 
1 100001 1XXXX0000 
01011 01 OXXXXXXXX 
0101 101 1XXXXXXXX 
0101111100000000 
0101111100000000 
01011010XXXXOOOO 
0101101001100001 
01 01 101 OXXXXXXXX 
1 000001 1XXXXOO0O 
0101 101 OXXXXXXXX 
0101101001100001 
00011111XXXXXXXX 
11011 11 1XXXX0000 
01011011XXXXXXXX 
1110010100000000 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
1100101101010001 
0101 101 1XXXXXXXX 
01011 01 0XXXX0001 
1101 111 1XXXXXXXX 
01011010XXXX0001 
11011111XXXXXXXX 
01011 01 0XXXX0001 
1101 111 1XXXXXXXX 
01011010XXXX0001 
11011101XXXXXXXX 
11000011XXXXXXXX 
01011010XXXX0010 
01011010XXXXXXX1 
1101110100000000 
0101111100000000 
0101 101 1XXXXXXXX 
01011 01 0XXXXXXX1 



10011101 
01100011 
00000010 
XXXXXXXX 
01101011 
00000010 
XXXXXXXX 
XXXXXXXX 
00000010 
00100000 
00000010 
01110001 
XXXXXXXX 
10001100 
XXXXXXXX 
01110010 
XXXXXXXX 
00000011 

xxxxoooo 

00001111 
10000110 
10000111 
10001001 
10001011 
10000110 
10000110 
10001101 
10001111 
10000110 
10010000 
10010110 
10011000 
10000110 
10000110 
10011010 
XXXXXXXX 
01101101 
XXXXXXXX 
01101101 
XXXXXXXX 
01101101 
XXXXXXXX 
01101101 
XXXXXXXX 
XXXXXXXX 
11000011 

1 1 oxxxxx 

00100000 
01000000 
XXXXXXXX 
001 XXXXX 
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00196 0001 101 1XX011X1X 

00197 10100000XX000X1X 

00198 00011011XX011X1X 

00199 10100000XX000X1X 
0019A 00011011XX011X1X 
0019B 1O1O0O00XX00OX1X 
001 9C 11100110XX000XXX 
0019D 01101100XX000X0X 
001 9E 11100000XXOOOXXX 
0019F 01000000XX101X1X 
001A0 11100000XX011XXX 
001A1 11010000XX0O1X00 
001A2 00110000X0000X00 
001A3 11100000XX011XXX 
001AU 00110000XX000X1X 
001A5 11100000XX101XXX 
001A6 11100110XX100XXX 
001A7 11101101XX111XXX 
001A8 11100110XXOOOXXX 
001A9 11100000XX000XXX 
001AA 01000000XX000X1X 
001AB 01 OO000OXX1 10X00 
001AC 11100110XX001XXX 
001AD 11010000XX111X00 
001AE 100001 10XX000XXX 
001AF 11100110XX110XXX 
001BO 00001 000XX001 XXX 
001B1 11100110XX110XXX 
001B2 11100110XX001XXX 
001B3 11100010XX011XXX 
001B4 11101000XX000XXX 
001B5 00001 101 XX 110XXX 
001B6 11100000XX101XXX 
001B7 00010000XX000X1X 
001B8 11100110XX001XXX 
001B9 11101000XX101XXX 
001BA 00011101XXOOOX1X 
001BB 11100000XX101XXX 
001BC 1 100001 1XX0010XX 
001BD 01110000XX001XOO 
001BE 00010000XXOOOX1X 
001BF 11100000XX101XXX 
001C0 11100110XX001XXX 
001C1 OO11100OXXO00X1X 
001C2 00010000XX000X1X 
001C3 11100111XX000XXX 
001C4 11101111XX000XXX 
001C5 00110000XX000X1X 
001C6 11101111XX000XXX 
001C7 00010000XXOOOX1X 
001C8 00010000XXOOOX1X 



XXXXX00000000000 

xxxxxooooooooooo 

XXXXXOOOO 1000010 

xxxxxooooooooooo 

XXXXX01111011110 
XXXXXOOOOOOOOOOO 
00XXX01111011110 

xxxxxooooooooooo 

XXXXXOOOO 10000 10 
01XXX00001 000000 
XX01 000000000001 
XX01000001000010 
0101000000000000 
XXXXX00000000001 

xxxxxooooooooooo 
xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX00001011010 
XXXXX00000011110 
XXXXX00000001010 
XX01 000000001 000 
01X1000100001000 
0010100100001000 
01X0100101001010 
XXXXXOO 10000 1000 
XXXXX00000011100 
01XXX01111011110 

xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX 1000 1000000 
01XXX00000011110 
XXXXX00000011100 

xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX00000001100 

xxxxxooooooooooo 
xxxxxooooooooooo 
xxxxxooooooooooo 

XX00000000011000 
01X1001100011110 

xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX00000001100 

xxxxxooooooooooo 
xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX00000001100 

xxxxxooooooooooo 
xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX00000001100 



10011 01 1XXXX0001 

01011010XXXXXXXX 

1001 101 1XXXX0001 

01011010XXXXXXXX 

10011 01 1XXXX0001 

01011010XXXXXXXX 

1100110100000000 

01011 01 0XXXX0001 

111 1100 1XXXXXXXX 

11001100XXXXXXX1 

110110111111XXXX 

101111011110XXXX 

1110001101010011 

11011011XXXXXXXX 

10011100XXXX0001 

01011010XXXXXXX1 

0101111100000000 

101 0001 1XXXXXXXX 

1101111100100000 

11 10001 1XXXXXXXX 

1110001111110000 

100001 000 100XXXX 

1000010100000100 

10000011 11 11XXXX 

1110010100000000 

1101111100000000 

1 00000 11XXXXXXXX 

0101111100000000 

0101111100000000 

010111 11XXXXXXXX 

11000011XXXXXXXX 

01011011XXXXXXXX 

01011 01 oxxxxxxxo 

01011010XXXX0001 
1101111100000000 
01 01 101 OXXXXXXXO 
01011010XXXX0001 
01011010XXXXXXX1 
1101111100010000 
1000001111100001 
01011010XXXX0001 

01 01 101 oxxxxxxxo 

1101111100000000 
01011 01 0XXXX0001 
01011 01 0XXXX0001 
01011010XXXXXXXX 
11011111XXXXXXXX 
01011 01 0XXXX0001 

01011 01 oxxxxxxxx 

01011010XXXX0001 
11011111XXXX0001 



01110010 

xxxxxxxx 

01110010 

xxxxxxxx 

01110010 

xxxxxxxx 

00000010 
11110000 

xxxxxxxx 

011 XXXXX 
XXXX1010 
XXXXXXXX 

11111111 

XXXX1001 
10100011 
010XXXXX 
00100000 
XXX 11 XXX 
00000010 

xxxxxxxx 

00011111 

xxxxxxxx 

00000000 
XXX10XXX 
00011111 
00100000 

xxxxxxxx 

00100000 
00000010 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

001 XXXXX 
11011010 
00000101 
010XXXXX 
11100000 
001 XXXXX 
OOOOXXXX 
10111101 
11011010 

1 ooxxxxx 

00000110 
10111010 
11011010 

xxxxxxxx 

XXXXX101 
10111010 
XXXXX111 
01101101 
01110100 



D-155 



A600 BASESET MICROCODE (06/14/82 »A) 



001C9 11100110XX000XXX 

001CA 00110000XX000X00 

001CB 00110000XX001X1X 

001CC 001 10000XX 000X01 

001CD 00011100XX000X1X 

001CE 11100110XX001XXX 

001CF 00111000XX000X1X 

001D0 11100000XX101XXX 

001D1 00010000XXOOOX1X 

001D2 11100110XX001XXX 

001D3 00111000XX000X1X 

001D4 00010000XX000X1X 

001D5 11100000XX101XXX 

001D6 00010000XXOOOX1X 

001D7 11100110XX001XXX 

001D8 00111000XX000X1X 

001D9 0000000000000000 

001DA 00O1OOO0XXOO0X1X 

O01DB 11100110XX110XXX 

001DC 11100110XX001XXX 

O01DD 1110000QXX101XXX 

001DE 11 10001 0XX011 XXX 

001DF 10100110XX110X1X 

001E0 11100110XX0OOXXX 

001E1 00010000XX000X1X 

001E2 11100110XX000XXX 

001E3 10100000XX000X1X 

001E4 00010001XX000X1X 

001E5 0001 000 1XX001X1X 

001E6 11100000XX000XXX 

001E7 11100000XX000XXX 

001E8 11100110XX000XXX 

001E9 010000O0XX0O001X 

001EA 1 1 10000 1XX001 XXX 

001EB 11100000XX001XXX 

001EC 111 1001 0XX01 1X00 

001ED 00010000XX000X1X 

001EE 101001 10XX000X1X 

001EF 0000000000000000 

001F0 00110000XX000X1X 

001F1 00110001XX001X1X 

001F2 00110000XX000X1X 

001F3 00110000XXOOOX1X 

001F4 00110000XX000X1X 

001F5 00110000XXOOOX1X 

001F6 00110000XX000X1X 

001F7 00110000XX000X1X 

001F8 0000000000000000 

001F9 0000000000000000 

001FA 0000000000000000 

001FB 0000000000000000 



XX10100110001100 

XXX01 00000000000 

01XXX01 111011110 

XXX1000000000000 

XXXXXOOOOOOOOOOO 

XXXXX00000001100 

01XXX00000011110 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX00000001100 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX00000001100 

XXXXXOOOOOOOOOOO 

0000000000000000 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX01110011010 

XXXXX00000001000 

XXXXX01110011100 

XXXXX00110001100 

XXXXX00000001100 

XXXXX01110011100 

XXXXX001 1001 1100 

XXXXXOOOOOOOOOOO 

XXXXX01 11 1001010 

XXXXX001 01 000010 

XXXXXOOOOOOOOOOO 

00XXX01111011110 

XXXXXOOOOOOOOOOO 

01XXXOOOOOOOOOOO 

0100000001000010 

XXX1 01 0001 100010 

XXXXX01 110001 100 

XXXXX00110001100 

0000000000000000 

XXXXXOOOOOOOOOOO 

XXXXX00000011110 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 



1110010100000001 

0101101001000001 

1 00000 11XXXX0000 

0101101000110001 

01011010XXXX0001 

1101111100000000 

11 00101 1XXXX0001 

01011010XXXXXXX0 

01011010XXXX0001 

1101111100000000 

01011010XXXX0001 

01011 01 0XXXX0001 

01011 01 OXXXXXXXO 

01011 01 OXXXXOOOO 

1101111100000000 

01011010XXXX0001 

0000000000000000 

01011 01 0XXXX0010 

0101111100000000 

0101111100000000 

11011100XXXXXXX1 

01011011XXXXXXXX 

1110010111111111 

1110010100000000 

01011011XXXX0010 

1110010100000000 

11011001XXXXXXXX 

01011 01 0XXXX0001 

10011 01 0XXXX0001 

11011100XXXXXXXX 

11011010XXXXXXXX 

1100010100000000 

01 01 101 OXXXXOOOO 

1 000001 1XXXXXXXX 

10000011 001 1XXXX 

0101111101010010 

11011100XXXX0010 

1110010100000000 

0000000000000000 

01011010XXXX0001 

0101 101 1XXXX0001 

01011010XXXX0001 

01011010XXXX0001 

01011010XXXX0001 

01011010XXXX0001 

01011 01 0XXXX0001 

01011 01 0XXXX0001 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 



00000000 
11000111 
10001100 
10011100 
11011010 
00001000 
10111010 
010XXXXX 
11011010 
00000111 
10111010 
11011010 

1 1 oxxxxx 

10111110 
00000100 
10111010 
00000000 
11000011 
00100000 
00000011 

11 oxxxxx 
xxxxxxxx 

00100000 
00111111 
00111101 

11111111 
xxxxxxxx 

00001001 
00001001 

xxxxxxxx 
xxxxxxxx 

00000010 
1011XXXX 

xxxxxxxx 
xxxxxxxx 

00110001 
00111101 

11111111 

00000000 
10011110 
10110001 
10110110 
11010000 
11000110 
11010100 
10111110 
11000010 
00000000 
00000000 
00000000 
00000000 
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001FC 0000000000000000 

001FD 0000000000000000 

001FE 0000000000000000 

001FF 0000000000000000 

00200 00010001XXOOOX1X 

00201 00110000XX000X1X 
0202 000 1 000 1 XX000X 1X 

0203 111 oooooxxoooxxx 

00204 0011 00000001 0X1X 

00205 00001000XXOOOXXX 

00206 00001000XX000XXX 

00207 11001000XXOOOXXX 

00208 0111 OOOOXXOOOXOO 

00209 11001000XX000XXX 
0020A 01 11 OOOOXXOOOXOO 
0020B 00010001XX000X1X 
0020C 1 1 10000 1XX001 XXX 
0020D 11100000XX001XXX 
020E 0000 1 0OOXXOOOXXX 
0020F 00010001XX000X1X 

00210 11100000XX001XXX 

00211 00110010XX011X1X 

00212 1 1 1 OOOOOXXOOOXXX 

00213 11101000XX000XXX 

00214 OOOOOOOOXXOOOXXX 

00215 0001 0001 XX 000X1X 

00216 00110010XX011X1X 

00217 00010001XX000X1X 

00218 00110000XXOOOX1X 

00219 0001 0001 XX000X1X 
0021A 00110000XX000X1X 
0021B 0001 000 1XX000X1X 
0021C 00110000XX000X1X 
0021D 0001 000 1XX000X1X 
0021E 111O0O00XXOO0XXX 
0021F 00110010XX011X1X 

00220 00010001XX000X1X 

00221 111 OOOOOXXOOOXXX 

00222 1 1 1 OOOOOXXOOOXXX 

00223 001 1 OOOOXXOOOXOO 

00224 00110000XX000X1X 

00225 00010000XX000X1X 

00226 1 1 1 OOOOOXXOOOXXX 

00227 00010001XX001X1X 
0228 111 OOOOOXXOOOXXX 
00229 10100000XX000X1X 
022A 1 1 1 0OOOOXXOOOXXX 
0022B 00010001 XXOO 1 X 1 X 
0022C 11101000XX001XXX 
022D 1 1 1 0OOOOXXOOOXXX 
0022E OOOOOOOOXXOOOXXX 



0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 

xxxxxooooooooooo 

XXXXX10001100100 

xxxxxooooooooooo 

XXXXX1 0001 000000 
0001010010100100 
XXXXX 10000 100 100 
XXXXX10010100000 
0110110010100100 
XXXO 100000000000 
0110110010100100 
XXX01 00000000000 

xxxxxooooooooooo 

OOXXX 100 10000000 
01XXX01111011110 
XXXXX 10001 100000 

xxxxxooooooooooo 

OOXXX 1 001 0000000 
XXXXX 10000 1000 10 
XXXXXOOOOO 100000 
XXXXX1 001 01 00000 
XXXXX00000100100 

xxxxxooooooooooo 

XXXXX10010100010 
XXXXX01111000110 
XXXXX00000011110 

xxxxxooooooooooo 

00XXX00011011110 

xxxxxooooooooooo 

XXXXX001 00001 010 

xxxxxooooooooooo 

XXXXX001 00001 010 
XXXXX00101100010 
XXXXXOOOOOOOOOOO 
XXXXX001 00001 010 
XX10100100001010 
XXX01 00000000000 
01XXX00000011110 

xxxxxooooooooooo 

XXXXX10001001000 
XXXXX01111011110 
XXXXX10001001010 
01XXX00000011110 
XXXXX00001001001 
XX01 0001 00001 000 
01XXX00000011110 
01XXX 00000000010 
XXXXXOO 110000000 



0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 

01011 01 OXXXX0001 

1 10111 11XXXX0001 

01011 01 0XXXX0001 

00011111XXXXXXXX 

1100000011110001 

11011100XXXXXXXX 

11011100XXXXXXXX 

11001100XXXXOOOO 

0101101001010001 

11000100XXXXOOOO 

0101101001010001 

01011 01 0XXXX0001 

01000000XXXXXXXX 

1 00000 11XXXXXXXX 

11011111XXXXXXXX 

01011 01 0XXXX0001 

01000000XXXXXXXX 

01011100XXXX0001 

00011 01 1XXXXXXXX 

11011100XXXXXXXX 

11011010XXXXXXXX 

01011010XXXX0001 

01011100XXXX0001 

11011100XXXX0001 

11011010XXXX0001 

01011010XXXX0001 

11000000XXXX0001 

01011 01 0XXXX0010 

11101001XXXX0010 

01011010XXXX0010 

11011001XXXXXXXX 

01011100XXXX0001 

01011 01 0XXXX0010 

11 10000 1XXXXXXXX 

11 11000 1XXXXXXXX 

0101101001010001 

11 00001 1XXXX0001 

01011010XXXX0001 

11011111XXXXXXXX 

1001 101 1XXXX0001 

11011111XXXXXXXX 

11000011XXXXXXXX 

01011100XXXXXXXX 

1001101111110010 

01001011XXXXXXXX 

11000011XXXXXXXX 

11011100XXXXXXXX 



00000000 
00000000 
00000000 
00000000 
00001001 
00000000 
00001001 

xxxxxxxx 

00000000 

xxxxxxxx 
xxxxxxxx 

00000000 
00000000 
00000000 
00000000 
00001001 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

00001001 

xxxxxxxx 

00000000 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

00001001 
00000000 
00001001 
00000000 
00001001 
00000000 
00100101 
00011111 
00100101 

xxxxxxxx 

00000000 
00100101 

xxxxxxxx 
xxxxxxxx 

00000000 
00000000 
00001001 

xxxxxxxx 

00001001 

xxxxxxxx 
xxxxxxxx 

XXXX1010 
00110010 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
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0022F 11100110XXOOOXXX 

00230 00010000XXOOOX1X 

00231 0000 1000XX001 XXX 

00232 11100110XX000XXX 

00233 00010000XX000X00 

00234 10100000XX000X1X 

00235 1 1 1 oooooxxoooxxx 

00236 1 1 10000 1XX001 XXX 

00237 11100110XX000XXX 

00238 00110000XX000X00 

00239 O00100O0XXOO0X1X 
0023A 11100010XX011XXX 
0023B 10100000XXOOOX1X 
0023C 00110000XXOOOX1X 
0023D 11100101XX000XXX 
0023E 10100101XX000X1X 
0023F 00010001XX000X1X 

00240 1 1 00000 1XX001 XXX 

00241 11100000XX001XXX 

00242 11 10001 0XX011XXX 

00243 001 10000XX000X01 

00244 01110000XX000X00 

00245 0001 000 1XX000X1X 

00246 1 1 00000 1XX001 XXX 

00247 11100000XX001XXX 

00248 11 10000 1XX000XXX 

00249 11 10000 1XX000XXX 
0024A 1 1 1 OOOOOXXOOOXXX 
0024B 00110000XX000X00 
0024C 00110000XXOOOX01 
0024D 01110000XX000X00 
0024E 001 1 OOOOXXOOOXOO 
0024F 1 1 1 OOOOOXXOOOXXX 

00250 111 OOOOOXXOOOXXX 

00251 111 OOOOOXXOOOXXX 

00252 00110000XX000X1X 

00253 0001 000 1XX000X1X 
0254 11 OOOOOOXXOOOXXX 

00255 1 1 1 OOOOOXXOOOXXX 

00256 00010001XX001X1X 

00257 00010000XX000X1X 

00258 00110000XX000X01 

00259 01 11 OOOOXXOOOXOO 
0025A 0001 000 1XXOO0X1X 
0025B 11100000XX000XXX 
0025C 0001 000 1XX001X1X 
025D 1 1 1 0OOOOXXOOOXXX 
025E 1 1 0OOOOOXXOOOXXX 
0025F 1 1 1 OOOOOXXOOOXXX 

00260 0001 000 1XX001X1X 

00261 11100000XX000XXX 



XXXXX00000001100 
XXXXX00000001100 
01XXX00000011110 
XXXXX00000001010 
XXX1 01 0001 001 100 
XXXXX00101001100 

xxxxxoooo 100 1001 

xxo 1000 10000 1000 

XXXXX00000001010 

XXX101 0001 000000 

XXXXX001 01 000000 

XXXXX001 10100010 

01XXX00000000010 

XXXXX001 01 000000 

XXXXX00110001100 

XXXXX001 10001 100 

XXXXXOOOOOOOOOOO 

01XXX00O00000000 

01XXX0000 1000010 

XXXXX10001100010 

01X1000000011000 

XXX01 00000000000 

XXXXXOOOOOOOOOOO 

01XXX00000000000 

01XXX0000 10000 10 

XXXXX10001001010 

XXXXX10001001100 

0010100110001010 

00X0100110001010 

01X1000000011000 

XXX01 00000000000 

01X0100000011110 

01XXX00000011110 

OOXXXO 1100000010 

01XXX00000000010 

01XXX00O00000OO0 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

XXXXX00000001001 

XX01000100001000 

O1XXXO0OO000OO00 

01X1000000011000 

XXX01 00000000000 

XXXXXOOOOOOOOOOO 

XXXXX00000001001 

XX01 000000001 000 

01XXX00000000000 

XXXXX001 10001 110 

XXXXX00001001001 

XX01 000000001 000 

01XXX00000000010 



1101111100000000 

11100001XXXX0010 

01 00101 1XXXXXXXX 

1101111100000000 

1101111111100010 

11 10000 1XXXXXXXX 

01011100XXXXXXXX 

100110111111XXXX 

1101111100000000 

0001111111110010 

00100000XXXX0010 

01011000XXXXXXXX 

11000011XXXXXXXX 

00101000XXXX0010 

1001 111 1XXXXXXXX 

1001111 1XXXXXXXX 

01011010XXXX0010 

1000001 1XXXX0010 

1 000001 1XXXXXXXX 

01011 11 1XXXXXXXX 

1100101101110010 

0101101001010001 

01011 01 0XXXX0010 

1 000001 1XXXX00 10 

10000011 XXXXXXXX 

11011 11 1XXXXXXXX 

11011111XXXXXXXX 

01001001XXXXXXXX 

0100100101000010 

1100101101110010 

0101101001010001 

1100001100110010 

1 100001 1XXXXXXXX 

11 00000 1XXXXXXXX 

1 100101 1XXXXXXXX 

1 100101 1XXXX0001 

01011010XXXX0010 

01011 01 0XXXX0010 

01011100XXXXXXXX 

1001101111110010 

1 100001 1XXXX00 10 

1100101101110010 

0101101001010001 

01011 01 0XXXX0010 

01011100XXXXXXXX 

0101101111110010 

1 100001 1XXXXXXXX 

11011100XXXX0010 

01011100XXXXXXXX 

0101101111110010 

11000011XXXXXXXX 



11111111 

00110101 

xxxxxxxx 
11111111 
00111101 
xxxxxxxx 

XXXX1010 
XXXXXXXX 

11111111 

00111100 
00111101 
XXXXXXXX 

xxxxxxxx 

00111010 

xxxxxxxx 
xxxxxxxx 

01101111 
01000000 

xxxxxxxx 
xxxxxxxx 

01110101 
00000000 
01101111 
01000110 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

01001110 
01110101 
00000000 
01010000 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

00000000 
01101111 
01010101 
XXXX1010 
00110010 
00110101 
01110101 
00000000 
01101111 
XXXX1010 
00110010 
XXXXXXXX 
01011011 
XXXX1010 
00110010 
XXXXXXXX 
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00262 1 1 1 OOOOOXXOOOXXX 

00263 00110000XX000X00 

00264 00110000XX000X01 

00265 01110000XX000X00 

00266 11100110XXOOOXXX 

00267 00010000XX000X1X 

00268 11100110XX0O0XXX 
02 69 111 OOOOOXXOOOXXX 
0026A 00010001XX001X1X 
0026B 1 1 OOOOOOXXOOOXXX 
0026C 00110000XX000X00 
0026D 001 1 OOOOXXOOOXOO 
0026E 01110000XX000X01 
0026F 00010000XX000X1X 

00270 11100000XX000XXX 

00271 0011 000 1XX00 1X00 

00272 1 1 1 0000 1 XXOOOXXX 

00273 10100010XX011X00 

00274 10100000XXOOOX1X 

00275 0011 OOOOXXOOOXOO 

00276 11100000XX001XXX 

00277 0011 001 0XX011X1X 

00278 0001 000 1XXOO0X1X 

00279 11100001XX110XXX 
0027A 11100000XX110XXX 
0027B 00110000XX000X1X 
0027C 00010001XX000X1X 
0027D 11100001XX110XXX 
0027E 11100000XX110XXX 
0027F 11100000XX001XXX 

00280 00111000XX000X1X 

00281 0001 000 1XX000X1X 

00282 11100000XX11 OXXX 

00283 11100010XX011XXX 

00284 00110000XX110X1X 

00285 00110000XXOOOX01 

00286 00010001XXOOOX1X 

00287 11100000XX001XXX 
0288 11101 OOOXXOOOXXX 

00289 00000 110XX000XXX 
0028A 00110000XX000X01 
0028B 00010000XX000X1X 
0028C 11100110XX000XXX 
0028D 11100000XX111XXX 
0028E 11100000XX110XXX 
0028F 00001 000XX001 XXX 

00290 00110000XX000X01 

00291 00010000XX000X1X 

00292 11101111XX000XXX 

00293 00110000XX000X1X 

00294 01000000XXOOOX1X 



0010100110001110 
00X0100110001110 
01X1000000011000 
XXX01 00000000000 
XXXXX00000001110 
XXXXX00000001100 
XXXXX00110010000 
XXXXX00001001001 
XX01 0001 00001 000 
XX01000110001110 
XX01 0001 10010000 
01X1000000000010 
XXX 1000000000000 

xxxxxooooooooooo 

XX01010001011000 
01X1001111011110 
XX01 01 0001 000000 
XXX1 000000000000 
XXXXXOOOOOO 11000 
XXX01 00000000000 
01XXX00000011110 
XXXXX01 1001 00010 

xxxxxooooooooooo 

XXXXXOOOOOO 11010 
XXXXX00000011100 
XXXXXOOOOO 100000 

xxxxxooooooooooo 

XXXXXOOOOOO 11010 

xxxxxoooooomoo 

01XXX01111011110 
XXXXX00000001000 
XXXXXOOOOOOOOOOO 
XXXXX00000011010 
XXXXXOOOOO 100000 

xxxxxoooooomoo 

XXX1000000000000 

xxxxxooooooooooo 

01XXX0111 1011110 

XXXXX10001001000 
XXXXX001 0001 1010 
XXX1 000000000000 
01XXX00000000000 
XXXXX00000001000 
XXXXXOO 1000000 10 

xxxxxoooooomoo 

01XXX00000011110 
XXX1000000000000 
01XXX00000000000 
XXXXX00000000010 

xxxxxooooooooooo 

01XXX00000001000 



01001001XXXXXXXX 
0100100101000010 
1100101101110010 
0101101001010001 
1110010100000000 
11011100XXXX0010 
1110010100000000 
01011100XXXXXXXX 
1001101111110010 
0111000111110010 
0111000101010010 
1100001101010001 
0101101001110001 
01011 01 0XXXX0001 
1 10111 111111XXXX 
1000001101010001 

ooommmxxxx 

011000100101XXXX 

11011 01 oxxxxxxxx 

0101101001010001 
11001011XXXXXXXX 
01011100XXXX0001 
01011 01 0XXXX0001 
01011011XXXXXXXX 
01011011XXXXXXXX 
11011 11 1XXXX0001 
01011010XXXX0001 
0101 101 1XXXXXXXX 
0101 101 1XXXXXXXX 
1 000001 1XXXXXXXX 
11011111XXXXOO0O 
01011011XXXX0001 
0101 101 1XXXXXXXX 
0101 101 1XXXXXXXX 
0101 101 1XXXX0001 
0101101001010010 
01011 01 0XXXX0001 
1 00000 11XXXXXXXX 
110111 11 XXXXXXXX 
1110010100000000 
0101101001010010 
1 100001 1XXXX00 10 
1101111101111111 
01 100001 XXXXXXXX 
0101 101 1XXXXXXXX 
0100101 1XXXXXXXX 
0101101001010010 
1 1 00001 1XXXX00 10 
11 01 1111 XXXXXXXX 
01011011XXXX0010 
11001100XXXX0000 



XXXXXXXX 
01001110 
01110101 
00000000 

11111111 

00111101 

11111111 

XXXX1010 

00110010 

01101001 

00110001 

00000000 

10011100 

00001001 

XXXXXXXX 

00000000 

XXXXXXXX 

XXXXXXXX 

XXXXXXXX 

00000000 

XXXXXXXX 

10011100 

00001001 

XXXXXXXX 

XXXXXXXX 

00000000 

00001001 

XXXXXXXX 

XXXXXXXX 

XXXXXXXX 

00001010 

00001001 

XXXXXXXX 

XXXXXXXX 

00000000 

11000001 

00001001 

XXXXXXXX 

XXXXXXXX 

11111111 

11000001 
10010100 

11111111 

XXX 1 OXXX 
XXXXXXXX 
XXXXXXXX 
11000001 
10010100 
XXXXXOO 1 
10001110 
00000100 
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00295 1 0000000XX000XXX 

00296 11100000XX110XXX 

00297 10100100XX001X1X 

00298 00110000XXOOOX01 

00299 00010001XX000X1X 
029A 111 OOOOOXXOOOXXX 
0029B 11100110XX000XXX 
0029C 01000000XX000X1X 
0029D 11100000XX110XXX 
0029E 1 1 1001 10XX001 XXX 
0029F 11100000XX111XXX 
002A0 11100000XX110XXX 
002A1 1 000000 1XX001 XXX 
002A2 0000 1000XX001 XXX 
002A3 00110000XX000X01 
002A4 00010001XXOOOX1X 
002A5 1 1 1 OOOOOXXOOOXXX 
002A6 01000000XXOOOX1X 
002A7 11100110XX001XXX 
002A8 11100100XX110XXX 
002A9 11101111XX011XXX 
002AA 11100000XX001XXX 
002AB 1 00000 10XX110XXX 
002AC 0000 1000XX001 XXX 
002AD 00110000XX000X01 
002AE 00010001XX000X1X 
002AF 00010000XXOOOX1X 
002B0 00110010XX011X1X 
002B1 00110000XX000X01 
002B2 00010001XX000X1X 
002B3 11100110XX110XXX 
002B4 11100110XX001XXX 
002B5 11 10000 1XX000XXX 
002B6 11100000XX110XXX 
002B7 11100000XX001XXX 
002B8 00110010XX011X1X 
002B9 00110000XX000X01 
002BA 0001 000 1XX000X1X 
002BB 11100110XX110XXX 
002BC 01000000XXOOOX1X 
002BD 10000000XX000XXX 
002BE 11100110XX000XXX 
002BF 00010000XX000X00 
002C0 00110000XX000X1X 
002C1 11100000XX101XXX 
002C2 0000000OXX101XXX 
002C3 11100110XX000XXX 
002C4 11100101XXOOOXXX 
002C5 1 1 1 OOOOOXXOOOXXX 
002C6 11100110XX000XXX 
002C7 00110000XX000X01 



XXXXX00000001001 
XXXXX00000001001 
XXXXX00000001000 
XXX1 000000000000 

xxxxxooooooooooo 

01XXX00000001010 
XXXXX00000001100 
XXXXXOOOOOO 10000 
XXXXX001 00001 000 
00XXX01 00001 0000 
XXXXXOO 11 0000000 
XXXXX01110011100 
01XXX00101001010 
01XXX01111011110 
XXX1 000000000000 

xxxxxooooooooooo 

XXXXX00000001010 
XXXXXOOOOOO 10000 
00XXX01 00001 0000 
XXXXXOO 10000 1000 

xxxxxooooooooooo 

01XXX00101001010 
XXXXX01110011100 
01XXX01111011110 
XXX1000000000000 

xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXXOO 1 001 00010 
XXX1 000000000000 

xxxxxooooooooooo 
xxxxxooooooooooo 
xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX00000011100 

xxxxxooooooooooo 

XXXXX00000100010 
XXX1 000000000000 

xxxxxooooooooooo 

XXXXX00100011100 
XX01 000000001 000 
XXXXX00000001001 
XXXXXOO 1 0001 1010 
XXX 1000000000000 
XXXXX00000011110 

xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX01110001000 
XXXXX01 101001010 
XXXXX00000001011 
XXXXX00101001010 
XXX1000101001000 



0101 101 1XXXXXXXX 
0101 101 1XXXXXXXX 
0101 101 1XXXXXXXX 
0101101001010010 
01011010XXXX0010 
11000010XXXXXXXX 
1101111101111111 
11 10001 1XXXX0000 
10011 01 1XXXXXXXX 
1000010100000100 
01100101XXXXXXXX 
1001 101 1XXXXXXXX 
1 00000 11XXXXXXXX 
1000001 1XXXXXXXX 
0101101001010010 
01011010XXXX0010 
11011010XXXXXXXX 
11 10001 1XXXX0000 
1000010100000100 
1001 101 1XXXXXXXX 
01011111XXXXXXXX 
1 00001 OOXXXXXXXX 
10011 01 1XXXXXXXX 
1 000001 1XXXXXXXX 
0101101001010010 
01011 01 0XXXX0001 
01011 01 0XXXX0010 
01011100XXXX0001 
0101101001010010 
01011 01 0XXXX0001 
0101111100000000 
0101111100000000 

01011 01 oxxxxxxxx 

0101 101 1XXXXXXXX 

0101 101 oxxxxxxxx 

01011111XXXX0001 
0101101001010010 
01011 01 0XXXX0010 
1110010100000000 
0101101111110000 
0101 101 1XXXXXXXX 
1110010100000000 
0101101011110000 
11011010XXXX0000 

01011 01 oxxxxxxxo 

01011010XXXXXXX1 
1110010100000000 
10011 11 1XXXXXXXX 
11011011XXXXXXXX 
1110010100000011 
1101100101010010 



XXXX1010 
XXXX1010 
XXXXXXXX 
11000001 
00100101 
XXXXXXXX 

11111111 

00011111 

XXXXXXXX 

00000000 

XXX10XXX 

XXXXXXXX 

XXXXXXXX 

XXXXXXXX 

11000001 

00100101 

XXXXXXXX 

00011111 

00000000 

XXXXXXXX 

XXXXXOO 1 

XXXXXXXX 

XXXXXXXX 

XXXXXXXX 

11000001 

00001001 

11000011 

00000000 

11000001 

00001001 

00100000 

0000001 1 

XXXXXXXX 

XXXXXXXX 

XXXXXXXX 

00000000 

11000001 

00100101 

00011111 

00000100 

xxxxoooo 

00011111 
11100000 
10101110 
011XXXXX 

1 1 oxxxxx 

00011111 
XXXXXXXX 
XXXX0010 
11100000 
11001001 



D-160 



A600 BASESET MICROCODE (06/14/82 »A) 



002C8 10100000XX000X1X 

002C9 101001 10XX000X1X 

002CA 11000000XX000XXX 

002CB 01110000XX000X01 

002CC 11000000XX000XXX 

002CD 01110000XX000X01 

002CE 11000000XXOOOXXX 

002CF 01110000XX000X01 

02D0 1 1 000000XX000XXX 

002D1 01110000XX000X01 

02D2 1 1 0OOOOOXXOOOXXX 

002D3 00110000XX110XOO 

002D4 1 1 10000 1XX001 XXX 

002D5 11100000XX110XXX 

02D6 1 1 1 0OOOOXXO0 1 XXX 

002D7 11100010XX011XXX 

002D8 01110000XX000XO1 

02D9 11 OOOOOOXXOOOXXX 

002DA 00110000XX110X00 

002DB 1 1 1 OOOOOXXOOOXXX 

002DC 0001 000 1XX001X1X 

002DD 11100000XX110XXX 

002DE 00010000XX000X1X 

002DF 01110000XX000X01 

002E0 11100110XX000XXX 

002E1 00010001XX000X1X 

002E2 00110000XX000X1X 

002E3 11100110XXOOOXXX 

002E4 0001 000 1XX000X1X 

002E5 00110000XX000X1X 

002E6 11100110XX000XXX 

002E7 00010001XX000X1X 

02E 8 111 OOOOOXXOOOXXX 

002E9 00110010XX011X1X 

002EA 11100110XX000XXX 

002EB 0001 000 1XX000X1X 

002EC 11100000XX000XXX 

002ED 00110000XX000X1X 

002EE 1 1 1 OOOOOXXOOOXXX 

002EF 0011 000 1XX00 1X00 

002F0 00010000XX000X1X 

002F1 OO11O0O0XXOO1X00 

002F2 11100010XX011XXX 

002F3 00110000XX000X1X 

002F4 11100000XX001XXX 

002F5 11 10000 1XX000XXX 

002F6 1 1 1 OOOOOXXOOOXXX 

002F7 1 1 10000 1XX001 XXX 

002F8 11100000XX001XXX 

002F9 10100010XX011X1X 

002F A 111 OOOOOXXOOOXXX 



XXXXX00000001000 
XXXXX001 00001 000 
XXXXX01 110001 110 
XXX1001 110010000 
XXXXX01 110001 110 
XXX1 001 101010000 
XXXXX01 101001 110 
XXX1001110010000 
XXXXX01 101001 110 
XXX1001 101010000 
XX10100000000100 
XXX0100000001110 
01XXX00000000000 
XXXXXOOOOOO 10000 
01XXX0000 10000 10 
XXXXXOOOOOOOOOOO 
01X1000000000100 
XX10100000000100 
XXX0100000001110 
XXXXX00000001001 
XX01 0001 00001 000 
XXXXXOOOOOO 10000 
01XXX00O000000O0 
01X1000000000100 
XXXXX00000001000 
XXXXXOOOOOOOOOOO 
0101000111010000 
XXXXX00000001000 
XXXXXOOOOOOOOOOO 
XXXXX01 000000000 
XXXXX00000001000 
XXXXXOOOOOOOOOOO 
XX010001 10010000 
00XXX00111001100 
XXXXX00000001000 
XXXXXOOOOOOOOOOO 
XXXXX001 11 000000 
OOXXXOO 110000000 
01XXX00000001110 
01X1000111001110 
0101000000001100 
01X1000101001010 
XXXXXOOOOOOOOOOO 
0101000000010000 
00XXX01 11 1001000 
XXXXX10001001010 
XXXXX00101001100 
XXXXX10001001110 
01XXX00 10000 1100 
XXXXX10001010000 
XXXXX00000001100 



0101 101 1XXXXXXXX 
1101110110000000 
11011100XXXX0010 
1101110000100010 
11011100XXXX0010 
1101110000100010 
11011100XXXX0010 
1101110000100010 
11011100XXXX0010 
1101110000100010 
01011011XXXX0010 
0101101101010010 
1 00000 11XXXXXXXX 
0101 101 1XXXXXXXX 
1000001 1XXXXXXXX 
01011111XXXXXXXX 
1100101101110001 
0101 101 1XXXX0010 
0101101101010010 
01011100XXXXXXXX 
1001101111110010 
0101 101 1XXXXXXXX 
11000011XXXX0010 
1100101101110001 
1101111111111111 
01011 01 0XXXX0010 
1100100111110010 
1101111111111111 
01011010XXXX0010 
11011100XXXX0010 
1101111111111111 
01011010XXXX0010 
1 1011 1001 111XXXX 
01000001XXXX0010 
1101111111111111 
01011010XXXX0010 
11011100XXXXXXXX 
11000001XXXX0010 
11 00001 1XXXXXXXX 
1000001101010001 
1100101111110001 
1000001111110001 
01011010XXXXXXXX 
1100101111110010 
11 00000 1XXXXXXXX 
11011111XXXXXXXX 
11011100XXXXXXXX 
11011111XXXXXXXX 
1001 000 1XXXXXXXX 
1 101111 1XXXXXXXX 
11011100XXXXXXXX 



xxxxxxxx 

00000000 
11011001 
11010010 
11011001 
11010010 
11011001 
11010010 
11011001 
11010010 
11010011 
10001110 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

10011100 
11011010 
10001110 
XXXX1010 
00110010 

xxxxxxxx 

00110101 
10011100 
11111101 
11110100 
11101110 
11111011 
11110100 
11100010 
11111101 
11110100 

xxxxxxxx 

11101111 
11111011 
11110100 

xxxxxxxx 

11101000 

xxxxxxxx 

00000000 
00001001 
00000000 

xxxxxxxx 

11101111 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
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002FB 10100000XX000X1X 

002FC 0000000000000000 

002FD 0000000000000000 

002FE 0000000000000000 

002FF 0000000000000000 

00300 00010000XX000X1X 

00301 00010001XX000X1X 

00302 00110000XXOOOX1X 

00303 00010000XX000X1X 

00304 00010001XX000X1X 

00305 00010000XX000X1X 

00306 00110000XX000X1X 

00307 00010000XX000X1X 

00308 00O100O1XX000X1X 

00309 00110000XX000X1X 
0030A 00010000XX000X1X 
0030B 1 1 1 00000XX000XXX 
0030C 001 1 ooooxxoooxoo 

0030D 0001 000 1XX001X1X 

0030E 00001000XXO00XXX 

003 OF 11100110XX000XXX 

00310 000100000X000X1X 

00311 01000000XXOOOX1X 

00312 10000000XX000XXX 

00313 00010000XX000X1X 

00314 11100110XX001XXX 

00315 00010000XX000X1X 

00316 11100110XX000XXX 

00317 11100110XX000XXX 

00318 0000 1000XX001 XXX 

00319 11100110XX000XXX 
003U 000100000X000X1X 
0031B 00010000XX000X1X 
0031C 01000000XX000X1X 
0031D 10000000XX000XXX 
0031E 00010000XX001X1X 
0031F 11100000XX000XXX 

00320 00110000XX000X1X 

00321 00010000XXOOOX1X 

00322 0000 1000XX001 XXX 

00323 00010000XX000X1X 

00324 00010000XX000X1X 

00325 00110000XX000X1X 

00326 0011 OOOOXXOOOXOO 
0327 1 1 1 0OOOOXXOOOXXX 

00328 1 1 1 OOOOOXXOOOXXX 

00329 11100110XX001XXX 
0032A 11 10000 1XX000XXX 
0032B 00110001XX001X1X 
0032c 0000000000000000 
0032D 0000000000000000 



XXXXX00001001110 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 

xxxxxooooooooooo 

XXXXX01 11 1010100 

XXXXXOOOOOOOOOOO 

XXXXX01 11 1010100 

XXXXXOOOOOOOOOOO 

XXXXXOOOOOOOOOOO 

01XXX00000011110 

XXXXXOOOOOOOOOOO 

XXXXX01 11 1010100 

XXXXXOOOOOOOOOOO 

XXXXX01111010100 

XX1 01 00000000000 

XXX01 00000000000 

XX1 01 00000000010 

XXXXX00000000010 

XXXXX00000000110 

XX00000000000010 

XXXXX00000000100 

XXXXX00000000101 

XXXXXOOOOOOOOOOO 

XXXXX00000000110 

01XXX00000000100 

XXXXXOOOO 10000 10 

XXXXXOOOO 1000010 

01XXX00000011110 

XXXXX00000000110 

XX00001 11 1010100 

XXXXXOOOO 1000 100 

XXXXX00000001110 

XXXXX00000001111 

XXXXX00000001110 

01XXX00000000010 

O1XXXOOOO00OO00O 

XXXXX01111010100 

01XXX01000011110 

XXXXXOOOOOOOOOOO 

XXXXX01 11 1010100 

01XXX01000011110 

XXX1001010011110 

XXXXX001 10000000 

XXXXX001 11000010 

XXXXXOOOOOOOOOOO 

01XXX00000011110 

XXXXXOOOOOOOOOOO 

0000000000000000 

0000000000000000 



11011100XXXXXXXX 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 

01011 01 0XXXX0010 

11011100XXXX0000 

01011010XXXX0011 

11011100XXXX0010 

01011010XXXX0001 

01011 01 0XXXX0011 

11000011XXXX0011 

01011 01 0XXXX0010 

11011100XXXX0000 

01011010XXXX0011 

11011100XXXX0010 

0101 101 1XXXXXXXX 

0101101011100011 

0001 101 1XXXX0001 

11011010XXXXXXXX 

1101111101111000 

0001101100110011 

11011100XXXX0000 

1001 101 1XXXXXXXX 

01011 01 0XXXX0011 

1101111101111100 

1 1 00001 1XXXX00 11 

1110110111111100 

1101110101111000 

01001011XXXXXXXX 

1101111101111100 

1101110000010011 

11011100XXXX0011 

11011100XXXX0000 

0101 101 1XXXXXXXX 

0101 101 1XXXX0011 

1 100001 1XXXXXXXX 

1 100001 1XXXX0001 

11011100XXXX0011 

1 00001 OOXXXXXXXX 

01011010XXXX0010 

11011100XXXX0011 

11000100XXXX0011 

1101110001110011 

11 01 11 OOXXXXXXXX 

1101 11 OOXXXXXXXX 

0101111100000000 

11001011XXXXXXXX 

00011 111XXXX0000 

0000000000000000 

0000000000000000 



XXXXXXXX 

00000000 

00000000 

00000000 

00000000 

11111010 

11100010 

00001011 

11111010 

00001001 

01011101 

00001011 

11111010 

11100010 

00000100 

11111010 

XXXXXXXX 

00001111 

00000001 

XXXXXXXX 

00000000 

00101111 

00000101 

XXXX0110 

00110101 

00000000 

00110101 

00000000 

00000000 

XXXXXXXX 

00000000 

00101111 

00110101 

00000101 

XXXX1010 

01000000 

XXXXXXXX 

00000000 

01000011 

XXXXXXXX 

11111010 

01000011 

00001011 

11101101 

XXXXXXXX 

XXXXXXXX 

00000100 

XXXXXXXX 

00011001 

00000000 

00000000 
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0032E 

0032F 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

0033A 

0033B 

0033C 

0033D 

0033E 

0033F 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

0034A 

0034B 

0034C 

0034D 

0034E 

0034F 

00350 

00351 

00352 

00353 
00354 

00355 
00356 
00357 
00358 

00359 
0035A 
0035B 
0035C 

0035D 
0035E 
0035F 
00360 



0000000000000000 

11100110XX001XXX 

11100001XX110XXX 

11100110XX110XXX 

11100000XX001XXX 

1 01 00000XX1 11X00 

00110000XX000X1X 

11100110XXOOOXXX 

11 100000X01 11 XXX 

11100110XX000XXX 

1 1 10000 1XX001 XXX 

11100110XX000XXX 

1 1 1 OOOOOXXOOOXXX 

1 1 1 OOOOOXXOOOXXX 

00110000XX000X00 

11100000XXOOOXXX 

00110000XX000X00 

00110000XX000X00 

10100000XX111X1X 

11100110XX000XXX 

101 00000X01 11X1X 

00010001XX000X1X 

11100000XX000XXX 

11100000XX000XXX 

1 1 1 OOOOOXXOOOXXX 

11100000XXOOOXXX 

00110000XX000X00 

0001 000 1XX001X1X 

11100000XX000XXX 

00110001XX001X00 

11100000XX000XXX 

11100000XXOOOXXX 

1 1 1 OOOOOXXOOOXXX 



0000000000000000 

xxxxxooooooooooo 
xxxxxooooooooooo 

XXXXX01 110001010 
XX1010001 101 1000 
XXX0100101011000 
XXXXX00101000110 
XXXXX00000010110 

xxooooooooo 11000 

XXXXX0001 0001 010 
XXXXXOOO 11001010 
XXXXX0001 0001 010 

xxxxxooooooooooo 

XX1010101 1000000 
XXX01 01 01 1010010 
XX10100101010010 
XXX01 01 01 1010000 
00X0101100010000 

xxxxxoooooo 10000 
xxxxxoooooo 10000 

XX00000000010000 
XXXXX01 11 1010000 
01XXX00000011000 
XX01 00000001 01 10 
XXXXX00000000010 
XXXXXOOOOOOOOOOO 
XXX1 000000000000 
01XXX01 00001 0000 
XX01 000000000000 
01X1001100011000 
01XXX00000000000 
0010100001000010 
11X0100000000000 



1 1 OOOOOOXXOOOXXX XX01 000000000000 
00110000XXOOOXOO XXX 100000 100 1000 
01000000XX000X00 XXX1000000001011 
1 OOOOOOOXXOOOXXX 00XXX101 1 1 001 01 1 
1 1 1 OOOOOXXOOOXXX XXXXXOOOOOOOOO 1 
1 1 OOOOOOXXOOOXXX xxxxxooooooooooo 
01 OOOO0OXX000XOO XXX1 00000001 001 1 
1 OOOOOOOXXOOOXXX ooxxx 1 00 1 1 00 1 01 1 
1 1 1 OOOOOXXOOOXXX xxxxxooooooooooo 
00110000XX000X1X 0101000000010110 
11100000XXOOOXXX 0101000000010110 
1 1 OOOOOOXXOOOXXX xxxxxoooo 1000000 
01110000XX000X00 XXX1000000000010 



00110001XX001X1X 
11100000XX001XXX 
11 10000 1XX000XXX 
11 10000 1XX000XXX 
10100000XX000X1X 



xxxxxoooooo 11 000 

01XXX00000000000 

ooxxxooooooooooo 

0010100001000010 
11X0100000000000 



0000000000000000 00000000 
0101111100000000 00000010 
1 1 000 1 OXXXXXXXX XXXXXXXX 
1001111110000000 00000000 
10011111XXXXXXXX XXXXXXXX 
11 101001 1110XXXX XXX10XXX 
11011001XXXX0011 00100110 
1101111111111100 00000000 
0101 101 1001 1XXXX XXX10XXX 
1110110111111100 00000000 
01011001 XXXXXXXX XXXXXXXX 
1110010111111100 00000000 
00011111XXXXXXXX XXXXXXXX 
011 10000XXXXXXXX XXXXXXXX 
1110000001010011 00100110 
01110001 XXXXXXXX XXXXXXXX 
1110100001000011 00100110 
1100000101010011 01000001 
0101 1011 XXXXXXXX XXX10XXX 
1101111101111111 11111111 
010110110001XXXX XXX10XXX 
11011100XXXX0001 00001001 
11 00001 OXXXXXXXX XXXXXXXX 
11011111111 1XXXX XXXXXXXX 
1 1 1 000 1 1 XXXXXXXX XXXXXXXX 
1 1 1 000 1 1 XXXXXXXX XXXXXXXX 
0101101001010011 01011100 
1 000001 1XXXX0001 00001001 
000111111111 XXXX XXXXXXXX 
1000001111100011 01001101 
11001011 XXXXXXXX XXXXXXXX 
1 1 OOOOOOXXXXXXXX XXXXXXXX 
1 1 0000 11011 OXXXX XXXXXXXX 
0001111111110000 00001111 
1101110001010011 01011001 
00100011 01 01XXXX XXXX0110 
00000001 XXXXXXXX XXXX1011 
11 01 101 OXXXXXXXX XXXXXXXX 
00011 111XXXX0000 00001111 
0001 101 10101XXXX XXXX0110 
00000001 XXXXXXXX XXXX 1011 
11 01 101 OXXXXXXXX XXXXXXXX 
1100101111110011 01001000 
1 1 00 1 01 1 1 1 1 1 XXXX XXXXXXXX 
11011100XXXX0011 01001000 
1110001101010011 01000111 
00011011XXXX0011 01011101 
0000001 OXXXXXXXX XXXXXXXX 
1 1 000 1 1 XXXXXXXX XXXXXXXX 
11000101 XXXXXXXX XXXXXXXX 
11000011011 OXXXX XXXXXXXX 
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00361 0001100000000X1X 

00362 11100110XX000XXX 

00363 00 1 1 OOO0XX000XOO 

00364 0O110O00XX000X00 

00365 OOOOOOOOOXOOOXXX 

00366 11100000XX000XXX 
0367 0011 OOOOXXOOOXOO 

00368 1 1 1 0OOOOXXOOOXXO 

00369 0011 OOOOXXOOOXOO 
0036A 0011 OOOOXXOOOXOO 
0036B OOOOOOOOXXOOOXXX 
0036C OOOOOOOOXXOOOXXX 
0036D 1 1 1 001 1 OXXOOOXXX 
0036E 1 1 1 OOOOOXXOOOXXX 
0036F 00110000XX000X1X 

00370 1 1 1 OOOOOXXOOOXXX 

00371 0011 OOOOXXOOOXOO 

00372 0001000000000X1X 

00373 moooooxxoooxxx 

00374 00110000XXOOOX1X 

00375 00010000XX000X1X 

00376 1 1 1 OOOOOXXOOOXXX 

00377 moooooxxoooxxx 

00378 00 11 OOOOXXOOOXOO 

00379 111 OOOOOXXOOOXXX 
0037A 00110000XX000X1X 
0037B 00010000XXOOOX1X 
037C 111 OOOOOXXOOOXXX 
0037D 0001 OOOOXXOOOXOO 
037E 0011 OOOOXXOOOXOO 
0037F 0001 OOOOXXOOOXOO 

00380 1 1 OOOOOOXXOOOXXX 

00381 11 10011 OXXOOOXXX 

00382 01 11 OOOOXXOOOXOO 

00383 moooooxxoooxxx 

00384 0011 OOOOXXOOOXOO 
0385 111 OOOOOXXOOOXXX 

00386 1 1 1 OOOOOXXOOOXXX 

00387 00 11 OOOOXXOOOXOO 
0388 111 OOOOOXXOOOXXX 

00389 11100110XX000XXX 

0038A moooooxxoooxxx 

0038B 00110000XXOOOX1X 

0038C 1 1 1 OOOOOXXOOOXXX 

0038D 1 1 1 OOOOOXXOOOXXX 

0038E 1 1 1 OOOOOXXOOOXXX 

038F 111 OOOOOXXOOOXXX 

00390 1 1 1 OOOOOXXOOOXXX 

00391 10100000XX000X1X 

00392 00010000XXOOOX1X 

00393 1 1 1 OOOOOXXOOOXXX 



XX00000001001110 

XXXXX00000001100 
0101000110001110 
XXX 1000000000000 
XX00000000000001 
0OXXXOOOOO00O001 
0101000000001110 
XXX01 00000000000 
XXXO 10000 1000000 
XXX01 00000000000 
01XXX00000000000 

xxxxxooooooooooo 

XXXXX00000001110 
XXXXXOOOO 10000 10 
01XXX00000011110 

xxxxxooooooooooo 

01X0100000011110 
XX00000001001110 
01XXX00000000010 
11X0100000000000 

xxxxxooooooooooo 

0110100000010000 
11X0100000001010 
XXX01 00000000000 
XXXXX00000001011 
01XXX00000001100 

xxxxxooooooooooo 

XX01000000010010 
XX01 000000001 010 
0001000110001110 
XXX 100000 101 01 00 
XX01 00000000 1100 
0010100110000000 
XXX01 000000 10000 
00XXX00000001011 
0101000000001100 
0010100001000000 
11X0100101000000 
XXX01 00000000000 
00XXX00000000001 

xxxxxooooooooooo 

01XXX00000001110 
XXXXX00000000010 
XXXXX001 01 000000 
XXXXX01000000010 
XXXXX001 10001 110 
XX01001001001010 
XXXXX01010010000 
O1XXX00OO0O000O0 
XXXXX00001010100 
0110100110001110 



1101110001000011 

1101111100000000 
1101000111110011 
0010001011100011 
011110010001XXXX 
0000001 1XXXXXXXX 
1100101101000011 
0101 101 1XXXXXXXX 
0101100011100000 
0101101001010000 
1 100001 1XXXXXXXX 
1111 000 1XXXXXXXX 
1101111100000000 
1111 000 1XXXXXXXX 
1 100101 1XXXX0011 
0101 101 1XXXXXXXX 
1100101101010001 
1101110001000011 
11010011XXXXXXXX 
1101001101100011 
01011 01 0XXXX0011 
1 101001 1XXXXXXXX 
1101001 101 10XXXX 
0101101001100011 
0101 101 1XXXXXXXX 
1 1 00001 1XXXX00 11 
01011 01 0XXXX0011 
110111001111XXXX 
0101101101010011 
0000100101010011 
1101110011110011 
1101101011110011 
0100010111111111 
0001101111100011 
0000001 1XXXXXXXX 
1100101101000011 

ooooooooxxxxxxxx 

11 000001 01 10XXXX 
0101101001100011 
0000001 1XXXXXXXX 
1111010110000000 
1 100001 1XXXXXXXX 
11011010XXXX0011 
11011100XXXXXXXX 
11011100XXXXXXXX 
11011100XXXXXXXX 
110111001111XXXX 
11011100XXXXXXXX 
00010010XXXXXXXX 
11011100XXXX0011 
11 00000 1XXXXXXXX 



11001010 
00001111 
01101100 
01100111 

xxxxoooo 

XXXX1110 
01100110 
XXXXXXXX 
00000000 
00000000 
XXXXXXXX 
XXXXXXXX 
00001111 
XXXXXXXX 
11001111 
XXXXXXXX 
00000000 
11001010 
XXXXXXXX 
11011100 
11000101 
XXXXXXXX 
XXXXXXXX 
01111100 

xxxxoooo 

01111100 
11000101 
XXXXXXXX 
10001100 
11001111 
10001100 
10000100 
11100111 
11001111 
XXXX1110 
10000011 
XXXXXXXX 
XXXXXXXX 
10001011 

xxxxmo 

00000000 
XXXXXXXX 
11001111 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
11000101 
XXXXXXXX 
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00394 1 1 1 OOOOOXXOOOXXX 

00395 01000000XX000X1X 

00396 1 oooooooxxoooxxx 

00397 11100000XX000XXX 

00398 1 1 1 OOOOOXXOOOXXX 

00399 00010101XX000X1X 
0039A 00010000XX000X1X 
0039B 00110000XX000X1X 
0039C 11100101XX000XXX 
0039D 1 1 OOOOOOXXOOOXXX 
0039E 01000000XX000X00 
0039F 100000000X000XXX 
003A0 1 1 1 OOOOOXXOOOXXX 
003A1 11100000XX000XXX 
003A2 10100101XX000X00 
003A3 10100000XX000X1X 
003A4 00O10000XX000X1X 
03A 5 111 OOOOOXXOOOXXX 
03A 6 111 OOOOOXXOOOXXX 
003A7 1 1 1 OOOOOXXOOOXXX 
003A8 00110000XX000X00 
003A9 11100000XX000XXX 
003AA 1 1 1 OOOOOXXOOOXXX 
003AB 1 1 1 OOOOOXXOOOXXX 
003AC 00110000XXOOOXOO 
03AD 0011 OOOOXXOOOXOO 
003AE 1 1 1 OOOOOXXOOOXXX 
003AF 1 1 1 OOOOOXXOOOXXX 
003B0 00010000XX000X1X 
003B1 1 1 1 OOOOOXXOOOXXX 
003B2 0011 OOOOXXOOOXOO 
003B3 11100000XX000XXX 
003B4 001 1 OOOOXXOOOXOO 
003B5 1 1 1 OOOOOXXOOOXXX 
003B6 00010101XX000X1X 
03B7 111 OOOOOXXOOOXXX 
003B8 11100000XX000XXX 
003B9 00010000XXOOOX1X 
003BA 1 1 1 0OOOOXXOOOXXX 
003BB 01000000XX000X1X 
003BC 1 OOOOOOOXXOOOXXX 
003BD 1 1 1 OOOOOXXOOOXXX 
003BE 0011 OOOOXXOOOXOO 
03BF 111 OOOOOXXOOOXXX 
003CO 00110000XXOOOX1X 
003C 1 00110000XX000X1X 
003C2 01000000XX000X10 

003C3 1 oooooooxxoooxxo 

003C 4 10100000XX000X1X 

003C5 0001000000000X1X 

003C 6 11100110XX000XXX 



XXXXX00000001010 
OOXXXOOOOOO 10011 
00XXX1 001 1010011 
00XXX1 001 1010011 
XXXXX00000000010 
XXXXX01 00001 0000 
XXXXX001 01 000000 
XXXXX01 001 000000 
XXXXX01 00001 0000 
XX00000000010000 
00X1000000010001 
0001010011010001 
0010101000000010 
11X0100000010010 
XXX1 001 01 001 0000 
01XXX00000010010 

xxxxxooooooooooo 

XXXXX00000000010 

00XXX00000001001 

00XXX00000001001 

00X0100110001110 

0110100000000000 

11X0100000001000 

XX01000101001100 

XXX1000000001010 

XXX1000000000010 

0110100000010000 

11X0100000001100 

01XXX00000001100 

XX01 000000001 000 

XX01 0000000 10010 

00XXX00110001000 

00X1001001001000 

XXXXX01 001 000000 

XXXXX01 0000 10000 

00XXX00001001001 

xxxxx 0000000 1001 

01XXX00000001110 

XXXXX00000000010 

xxxxxooooooooooo 

XXXXX00000000011 
XX10100000001010 
00X0101001000000 
0110100000000010 
11X0100000000000 

xxxxxooooooooooo 

XXX 1100000001000 
00X1100110101001 
XXXXX00000001001 
XX00000001001110 
xxxxxoo 110010000 



00011 01 1XXXXXXXX 
0010001 1XXXX0000 
0000000 1XXXXXXXX 
00001 00 1XXXXXXXX 
11011 01 OXXXXXXXX 
10011111XXXX0011 
11011100XXXX0011 
11011100XXXX0011 
10011 11 1XXXXXXXX 
0001101100110000 
001000110101XXXX 
00000001 1111XXXX 
11 00000 1XXXXXXXX 
1100001 101 10XXXX 
100111110010XXXX 
1 100101 1XXXXXXXX 
01011010XXXX0011 
0001 101 1XXXXXXXX 
00000 100XXXXXXXX 
0000001 1XXXXXXXX 
1100100111100011 
000 1001 OXXXXXXXX 
1101001 101 10XXXX 
11011 1001 111XXXX 
1111000101010011 
1110001111100011 
1 101001 1XXXXXXXX 
1101001 101 10XXXX 
1 1 00001 1XXXX00 11 
010110111111XXXX 
1111101011100011 
11 00000 1XXXXXXXX 
1100000111110011 
11011100XXXXXXXX 
10011111XXXX0011 
00001 00 1XXXXXXXX 
00011 01 1XXXXXXXX 
11000011XXXX0011 
11111010XXXXXXXX 

001 0001 oxxxxoooo 

10011 01 1XXXXXXXX 
01011011XXXXXXXX 
1100000011100011 
11010011XXXXXXXX 
1101001101100011 
11 10001 1XXXX0011 
0101101111110000 
10001001 1111XXXX 
0101 101 1XXXXXXXX 
1101110001000001 
1110010111111111 



xxxxxxxx 

00001110 

xxxxmo 

XXXX1110 
XXXXXXXX 
10011100 
10011100 
11001111 

xxxxxxxx 

00000111 

xxxxmo 
xxxxmo 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

11000101 

xxxxxxxx 
xxxxmo 
xxxxmo 

10101011 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

11101011 
10110000 

xxxxxxxx 
xxxxxxxx 

11000010 

xxxxxxxx 

10110100 

xxxxxxxx 

11000001 

xxxxxxxx 

10011100 
XXXX0110 
XXXX0110 
11000010 
XXXXXXXX 
00000001 
XXXX1111 

xxxxxxxx 

11001111 

xxxxxxxx 

11001111 
11001111 
00010000 
XXXX1111 
XXXX1111 
00111001 
00000000 
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003C7 1 1 1 00000XX000XXX 

003C8 00110000XXOOOXOO 

003C9 11100110XXOOOXXX 

003CA 11100110XX000XXX 

003CB 1 1 1 OOOOOXXOOOXXX 

003CC 00110000X0000X00 

003CD 11100110XX000XXX 

003CE 1010000000000X1X 

003CF 1 1 1 OOOOOOXOOOXXX 

003D0 00110000XX000X00 

003D1 00110000XX000X00 

003D2 01000110XX000X1X 

03D3 11 ooooooxxoooxxo 

003D4 11010000XX000X01 

003D5 1 1 1 OOOOOXXOOOXXX 

03D6 111 OOOOOXXOOOXXX 

003D7 11100110XX000XXX 

003D8 11100110XX000XXX 

003D9 1 1 1 OOOOOXXOOOXXX 

003DA 1 1 1 OOOOOXXOOOXXX 

03DB 1 1 1 0OOOOXXOOOXXX 

03DC 00 1 1 0OOOXXOOOXOO 

03DD 111 OOOOOXXOOOXXX 

003DE 00110000XX000X1X 

03DF 00 1 1 0OOOXXOOOXOO 

003E0 1 1 1 OOOOOXXOOOXXX 

003E1 11100000XX000XXX 

003E2 11100110XX000XXX 

003E3 1 1 1 OOOOOXXOOOXXX 

003E4 111 OOOOOXXOOOXXX 

003E5 11100110XXOOOXXX 

003E6 00110000XX000X00 

003E7 11100110XXOOOXXX 

003E8 001100000X000X1X 

003E9 00110000XX000X00 

003EA 001100000X000X1X 

003EB 11100000XX000XXX 

003EC 001100000X000X1X 

003ED 11100000XXOOOXXX 

003EE 00110000XXOOOXOO 

003EF 11101000XX001XXX 

003F0 000001 10XX000XXX 

003F1 0000000000000000 

003F2 0000000000000000 

003F3 0000000000000000 

003F4 0000000000000000 

003F5 0000000000000000 

003F6 0000000000000000 

003F7 0000000000000000 

003F8 0000000000000000 

003F9 0000000000000000 



XXXXX01 000001 101 
XXX1000000000000 
XXXXX001 10001 100 
XXXXXOOOO 1000010 
XXXXX00001001111 
0001000000001110 
XXXXX001 11001 110 
XX00000000001110 
0001000000000010 
XX01 000000000000 
XXX1000001 000010 
00XXX001 11001 110 
01X1000000001110 
XXX1 000000000001 
XXXXX00000000001 
XXXXX00000000001 

xxxxxooooooooooo 

XXXXXOOOOOO 10000 
0010100000000000 
11X0101000000010 
11X0100000000000 
00X0100000000000 
XXXXX00000000001 
01XXX00000001110 
XXX01 00000000000 
XXXXX00000000001 
01XXX00000001110 
XXXXX00111001100 
0010100111001100 
11X0100110001100 
XX101001 10000000 
XXX01 00000001 110 
XXXXX00001 000010 
XX000001 10000010 
XXX01 00000000000 
XX00000000000010 
XXXXX00000000001 
XXOOOOOOO 10000 11 
XX101 00000000000 
XXX01 00000000000 
01XXX00000011110 

xxxxxooooooooooo 

0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 



01110001XXXXXXXX 

0101101010100011 

1101110111111111 

1110010111111111 

01110001XXXXXXXX 

0100001110100011 

1101110111111111 

010110110100XXXX 

00000011 11 11XXXX 

0101101101000011 

1111000101010001 

1100010100000000 

1000101111110000 

10011 01 10000XXXX 

0001 101 1XXXXXXXX 

00011 01 1XXXXXXXX 

1111010101000000 

1101111100000000 

01 000001 XXXXXXXX 

11 000000 1000XXXX 

11 00001 11000XXXX 

0100000101100011 

0101 101 1XXXXXXXX 

1 1 00001 1XXXX00 11 

0101101001110011 

11011011XXXXXXXX 

11001011XXXXXXXX 

1110010100000000 

11 00000 1XXXXXXXX 

11 000001 01 10XXXX 

0110010111111111 

0101101101000011 

1110010111111111 

1101100100110001 

1110001111100011 

1110001100010001 

01111001XXXXXXXX 

1111100100010001 

01011011XXXXXXXX 

0101101011100011 

0100101 1XXXXXXXX 

1101111100000000 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 

0000000000000000 



XXXX0010 
11001010 
10000000 
00000000 
XXXX0010 
11001110 
1 0000000 

xxxxxxxx 
xxxxxxxx 

11010010 
00000000 
00000010 
00000001 
XXXX0110 
XXXX0101 
XXXX0101 
00000000 
01111111 
XXXXXXXX 
XXXXXXXX 

xxxxxxxx 

11011111 

xxxxoooo 

11100010 
11100010 

xxxxoooo 
xxxxxxxx 

10000000 

xxxxxxxx 
xxxxxxxx 

00000000 
11101001 
00000000 
00000000 
11101011 
00000000 

xxxxoooo 

00000000 

xxxxxxxx 

00101001 

xxxxxxxx 

01010000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
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003FA 0000000000000000 0000000000000000 0000000000000000 00000000 

003FB 0000000000000000 0000000000000000 0000000000000000 00000000 

003FC 0000000000000000 0000000000000000 0000000000000000 00000000 

003FD 0000000000000000 0000000000000000 0000000000000000 00000000 

003FE 0000000000000000 0000000000000000 0000000000000000 00000000 

003FF 00110000XX000X1X 01XXX00000000010 11 00001 1XXXX0001 10100101 
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